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THE F-BODY CODE - A GENERAL PORTRAIT CODE FOR IKE 
FOMERICAL SOLUHOF OF SPACE MECHANICS 
PROBLEMS OF AF IBM 7090 COMPUTER 
By William C. Strack and Vearl N. Huff 


SUMMARY 

A general astronomical integration code designed for a large class of prob- 
lems in space mechanics that may be solved by numerical integration is described. 
The equations of motion provide for the effects of up to eight gravitating celes- 
tial bodies, oblateness and aerodynamic forces from the celestial body at the 
problem origin, propulsion system thrust, and rotation of the body at the origin. 
The coding in this report is intended for use on an IBM 7090. An earlier version 
was reported in RASA Technical Note D-1455 and was designed for use on an IBM 704. 


INTRODUCTION 

The general problems of space mechanics (i.e, , n-bodies plus nonconservative 
forces such as thrust) cannot be solved analytically. Therefore, numerical inte- 
gration through the use of computing machinery is usually employed. 

Several codes have been written for the numerical solution of problems in 
orbit mechanics, 1 for example, the Themis Code of reference 1 is a double- 
precision code intended primarily for close satellites or interplanetary coasting 
flight. Reference 2 describes a space- trajectory program of considerable merit. 

A listing of several other trajectory codes may be found in reference 3. 

The general purpose code described herein has several distinctive features 
not all of which are found in any one of the previously available codes. As de- 
scribed herein, this code is designed to operate on an IBM 7090 computer that has 
a 32,000 word (32 K) memory. The fact that the program is written in FORTRAN 
should make it applicable to installations having other types of equipment that 
accept the FORTRAN language. An earlier version of this program designed for an 
IBM 704 with an 8-K core and at least 1 K of drum storage has been previously 
published in reference 4. This report has incorporated a number of improvements. 
The most important ones are; (l) only one core load is required, (2) all stage 
data for multistage vehicles may be loaded simultaneously, (3) the third harmonic 
term is included in the Earth's oblateness equations, and (4) there are addi- 
tional program controls available that provide increased flexibility. 

The program is compartmented into 25 subroutines to facilitate modifications 



for specific problems. Hie integration is carried out in either rectangular co- 
ordinates or orbit elements at the option of the user. A compact ephemeris that 
occupies about one-seventh of a reel of tape is utilized for positions and veloc- 
ities of the planets (except Mercury) and the Moon. An atmosphere is included 
so that aerodynamic forces may be considered. 


STATEMENT OF PROBLEM 

The problem to be solved may be stated as follows : Given certain initial 

conditions, compute, using three degrees of freedom, the path of an object, such 
as a space vehicle, subject to any or all of the following forces: 

Origin body gravitational field 

Other celestial body gravitational fields 

Propulsive thrust 

Aerodynamic forces 

Any other defined forces 

Alternately, in equation form> with respect to a noninertial Cartesian coordinate 
system. 


n 



i=l 


where n equals the number of perturbating bodies and V denotes the del oper- 
ator. (All symbols are defined in appendix A. ) 


Origin Body Gravitational Field and Oblateness Perturbations 


The first term, VG, in the equation of motion (eq» (l)) represents the grav- 
itational forces due to the origin body. When the origin body is spherical and 
made up of homogeneous layers, this term becomes simply -pr/r^, In the case 
of the Earth, however, the effect of oblateness may be important, and additional 
terms must be added to account for the oblateness effects. The expression for 
the gravitational potential U of an oblate spheroid may be written, according 
to reference 5, as 
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where the x,y plane lies in the equatorial plane. The components of gravita- 
tional acceleration are as follows: 



The first terms exist for a spherical planet ' composed of concentric layers of 
uniform density. The terms containing J , H, and are frequently called the 

second, third, and fourth harmonic terms, respectively, while J, H, and Q) 
are known as the harmonic coefficients. 

It is expected that oblateness perturbations need to be computed only for 
the origin body, since at large distances, such as that between celestial bodies, 
the gravitational field of an oblate body is essentially an inverse- square field. 
Consideration of oblate bodies other than the Earth requires only different val- 
ues of J, H, and @ if that body's rotation axis is parallel to the z-axis. 
When the body has triaxial asymmetry or when the z-axis cannot conveniently be 
alined with the rotation axis of the origin body, the equations must be extended 
if oblateness is to be included. 


Celestial Body Perturbations 

The presence of more than one gravitating body in addition to the object re- 
sults in the inclusion of the second term of equation (l). The evaluation of 
this term requires a knowledge of the positions of the bodies as a function of 
time. The degree of precision desired determines the method to be used to obtain 
the positions such as elements of ellipses or an ephemeris. 
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Propulsive Thrust 


The propulsive acceleration is completely specified by a direction and a 
magnitude. The thrust direction may be referred to the velocity vector by two 
angles: a, the angle between the velocity and the thrust vectors and 3, the 

angle between the orbit plane and the velocity-thrust plane. The sense of each 
angle is indicated in sketch (a). 


Orbit plane 




The velocity may be referenced with respect to one of several coordinate 
systems. If the computation refers to a takeoff of a rocket or winged vehicle, 
the coordinate system rotating with the Earth may be preferred. In such cases 
the relative velocity (i. e. , the velocity of the object relative to the atmos- 
phere) will serve to orient the thrust vector. Resolution of the thrust-vector 
components along the x,y,z axes is shown in appendix B. 

The thrust magnitude for most types of problems is of the form 

F = F(m,I,t, . . . ) 

Any such function (or even a more complicated relation) may quite easily be in- 
serted into the program. For many space powerplants, the rocket engine thrust 
equation 


F = -mlg c - PAg 

is sufficient and is used as a standard in the present program. 


( 4 ) 


Aerodynamic Forces 

The aerodynamic forces are usually divided into the two components, lift and 
drag. The drag force is directed opposite to the relative wind vector, and the 
lift vector is perpendicular to the relative wind vector. The angles a and 3j 
defined in the previous section, serve as the angles of attack and roll, respec- 
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tively. Yaw effects are not considered. Resolution of the lift and drag vectors 
into components along the x,y, z axes is given in appendix B. 


The magnitudes of the lift and drag forces may he conveniently determined 
through use of a tabular group of coefficients in relatively simple equations. 
The lift and drag magnitudes may then be expressed (as is usual in aerodynamics) 
as 


L = Cj i (a,%)qS 

(5) 

D = Cj ) (Cj j ,N M )qS 

(6) 


where 
a = a(t) 

C L * f l(%) sln a 

C D = C D,0 + C D,i = C D,o(%) + f 2^%) C L 

p(v') 2 

p = p(P,T) - p(h) 

If <x(t) , Cd, 0 (Bm), f l(%)^ and f2(%) are assumed to be quadratic functions and 
P is assumed to be constant, the expressions for ct, p, Ct. Cp q, and C-n i 
become ’ 

a = a ll + * 12 * + a 13 t2 

P - Po 

C L = ( a 21 + a 22% + a 23^M) sin a 
C D,0 “ a 31 + a 32% + 

C D,i 3 ( a 41 + a 42% + a 43^M) C L 

where the quadratic constants aq * may have different values for different re- 
gions of the independent variables t and %. 

It should be remembered that these choices are arbitrary and are not re- 
strictive because other functions may easily be used by simply changing the equa- 
tions where they appear in the program. In fact, any propulsion system and aero- 
dynamic configuration can presumably be incorporated by writing proper thrust and 
aerodynamic subroutines. 

Pressure, temperature, and density are determined as functions of altitude 
in accordance with the U. S. Standard Atmosphere, 1962. The atmospheric data 
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are in the form of a short table, which may be altered conveniently to account 
for a different atmospheric model* 


Other Forces 

The X forces may be any forces such as electrostatic, magnetic, or solar 
radiation pressure that affect the trajectory* "While these forces are not con- 
sidered further herein, their inclusion would usually be feasible and would be 
similar to thrust, lift, and drag. 


METHOD OF SOLUTION 

A description of several numerical integration techniques and their relative 
merits are contained in reference 6* A straightforward method for finding the 
position of the object as a function of time is to integrate the total accelera- 
tion of the object expressed in rectangular components* An example of this 
method is Cowell's method (ref. 6). 

However, when the system under investigation consists of two nonoblate 
bodies (one of which is the object) with no forces other than gravitational at- 
traction forces, an exact analytical solution for the motion of the body exists. 
Further, if the conditions of the actual problem are such as to approximate the 
two-body problem closely, another approach is to use the exact two-body solution 
as a basis and simply integrate the changes in the two-body parameters, since 
they should be slowly varying. This technique, sometimes called the "variation 
of parameters," will be referred to as "integration of orbit elements." 

Since problems both remote and near to the exact two-body problem are en- 
countered in orbit mechanics and since either type of problem is solved more ef- 
ficiently by using the technique most suitably applicable, it was considered 
desirable to use either of the previously mentioned integration techniques at 
will. Accordingly, two methods of integration are provided in the program, 
namely, rectangular coordinates and orbit elements. 


Integration Variables 

To use either of these integration techniques, it is necessary to select a 
suitable set of variables. Because a differential equation may determine the 
mass of the object (i.e. , spacecraft), mass has been selected as a variable to be 
integrated. Selection of the remaining parameters follows in the subsequent par- 
agraphs. 

Rectangular coordinates . - In the first technique, the total acceleration 
components x, y, and z are integrated to obtain X, y, and z where x, y, 
and z are the rectangular components of the origin to object radius r* The 
positive x-axis points in the direction of the mean vernal equinox of 1950.0. 

The positive y-axis lies in the mean equator of 1950.0 and is perpendicular to 
and counterclockwise from the positive x-axis. The z-axis points north and 
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completes the righthanded orthogonal set. The integration in rectangular coor- 
dinates involves numerical solution of three second-order differential equations 
that is, a double integration is required for integrating the accelerations to 
obtain velocities and the velocities to obtain positions. The rectangular vari- 
ables have advantages of complete generality and a minimum amount of computing 
per step. 

Orbit elements . - In the variation-of -parameters technique, a set of six in- 
dependent two-body parameters called orbit elements are integrated. These six 
parameters may be arbitrarily chosen from a host of possibilities. The set se- 
lected for this program is composed of thd eccentricity e, the argument of peri- 
center CD, the equatorial longitude of ascending node 8, the inclination of the 
orbit plane to the equatorial plane i, the mean anomaly M, and the semilatus 
rectum p. The transformation equations from orbit elements to rectangular coor- 
dinates are given in appendix C. 

The integration of orbit elements requires the numerical solution of six 
first-order differential equations. The rather involved transformation by which 
the three second-order differential equations in x, y, and z are reduced to 
six first-order equations in e, d>, 8, i, M, and p is contained in reference 7. 
Integration in orbit elements is frequently advantageous because the smaller 
orbit-element derivatives may permit larger integration intervals that result in 
fewer steps. In the special case of two-body motion, the derivatives are zero 
(except $[, which is a constant). 

Mathematical difficulties may arise occasionally with most sets of orbit 
elements. In particular, for the selected set, these occur when e approaches 
unity (parabolic trajectory), which causes a loss of numerical accuracy in the 
frequently used quantity (l - e^) , and when an asymptote is approached too 
closely, which causes numerical difficulties in the iterative solution for eccen- 
tric anomaly from Kepler’s equation. The selected solution to these difficulties 
is to shift temporarily to rectangular- coordinate integration whenever the diffi- 
culty arises. 


Integration Method 

It is clear that regardless of the choice of integration technique, the mag- 
nitudes of the derivatives of the variables to be integrated may vary consider- 
ably along the trajectory. With fixed step size (constant intervals in time), 
the integration scheme will take unnecessary steps in the regions where the 
changes in the derivatives are small and thus will waste computing time and in- 
crease roundoff error. When the derivatives are large and change rapidly, a 
fixed step size will result in large truncation error (error due to excessive 
step size). Thus, in the interest of computing accuracy and economy, use of var- 
iable step size along the trajectory becomes desirable. 

One of the integration schemes that allows variable step-size control to be 
incorporated easily is the Runge-Kutta scheme. For this and other reasons, it 
was decided to use a fourth-order Runge-Kutta method with variable step-size con- 
trol. 
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Truncation error and step size may be controlled by examining the relative 
errors between the fourth-order Runge-Kutta integration scheme and a lower-order 
integration procedure. The arbitrarily chosen low-order integration scheme was 
an unequal-interval Simpson rule method. Details of the fourth-order Runge-Kutta 
integration method and the step-size control are given in appendix D* Roundoff 
error may be reduced by accumulating the integration variables in double preci- 
sion. 


Origin Translation 

As .noted previously, machine computing time and roundoff error may be mini- 
mized by maximizing the integration interval. The largest intervals are possible 
in orbit elements when the celestial body at the problem origin is the one that 
has the greatest influence on the vehicle motion. For this and sometimes other 
reasons, it may become desirable to translate the problem origin occasionally as 
the vehicle moves along its path. 

Such translations of the origin may be made when the object enters a body's 
"sphere of influence," that is, the sphere about a body within which the greatest 
influence upon the object is due to forces originating from that particular body. 
In this program, the orientation of the coordinate system is always alined with 
the system determined by the Earth's mean equator and equinox of 1950,0, as is 
standard in astronomy. 


THE CODE AND ITS USAGE 

The stated problem was programed in FORTRAN routines that are separately 
designed to accomplish one task but when combined form a complete program. This 
feature facilitates modifications. 

The program is labeled as a general-purpose code, but an efficient general- 
purpose code cannot be a reality. As a result, this code is not especially gen- 
eral, but an attempt has been made to retain efficiency and to provide for easy 
modification of the routines to recover generality as needed. For example, the 
program is an "open system"/ that is, it solves an initial- value problem. There 
is no link provided to obtain specific end conditions. Provision of this link is 
left to the user for his specific needs. In particular, when certain end condi- 
tions of a trajectory are to be met by determining the correct initial conditions 
(two-point boundary- value problem), the user may program an iteration scheme to 
compute initial conditions from end conditions of previous runs. Figure 1 is a 
simplified diagram that shows how the various major subprograms (and exits) are 
arranged. 

In the following sections, the program is sometimes discussed in terms of 
the FORTRAN variables and routines. A glossary of these variables is given in 
appendix E. 
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Ephemerides 


To determine the position of each celestial body, there is offered a choice 
between ellipses and a precision ephemeris. Any appropriate ellipse data may be 
used, and an example of such data is given in table I, 

The precision-ephemeris tape that is used in the program was so made that 
position and velocity were obtainable through the use of a fifth-order polynomial 
whose coefficients are stored on tape. The details concerning the making of the 
tape and its structure are given in appendix F. This master tape is a merged 
ephemeris containing all the planets (except Mercury), the Moon, and the Earth- 
Moon barycenter from October 25, 1960 to about 2000 (except for the Moon, which 
has an ending date of 1970). 


Direct use of the master merged ephemeris tape would, in general, waste 
computing time, since excess tape handling would occur in order to bypass data 
not required for the particular problem. To minimize tape handling during exe- 
cution, a shorter merged ephemeris containing only that data needed for a spe- 
cific problem is constructed at execution time. Several of these working ephem- 
erides may be constructed before the integration of the problem. (Several prob- 
lems may be loaded simultaneously with the same ephemeris, or each problem may 
require a distinct ephemeris, or several ephemerides may be desired for a single 
problem. ) 


Multistage Vehicles 

Hie code is designed to handle the case of multistage vehicles in the fol- 
lowing way: The stage data for all stages is intended to be loaded simultane- 

ously. This results in several initial values of those parameters classified as 
stage parameters. Also, this may be expensive in terms of machine storage if 
either the number of stage parameters or number of stages is large. Therefore, 
only parameters of a basic group were defined to be arrays, and the number of 
stages was limited to 10. This group is composed of values for the initial mass, 
propellant flow rate, vacuum specific impulse, engine exit area, aerodynamic 
reference area, burning time, initial integration step size, and an input iden- 
tification number. The input identification number is a provision that allows 
other parameters to be loaded just prior to integration of a particular stage. 


Step-Size, Output, and Termination Controls 

Truncation error and step size are controlled by computing the relative 
errors between the Runge-Kutta integration and the lower-order integration proce- 
dure. If the greatest relative error between the methods is greater than a maxi- 
mum limit (ERLIMT), the integration step will be repeated after a smaller step 
size is computed. In either case, a new step size is computed from the relative 
errors of the previous steps and is intended to result in an error that is close 
to a reference value (EREF). Further, the step size may then be reduced by the 
output controls. In any case, a step can be no larger than three times the size 
of the previous successful step. (See appendix D. ) 
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Output is sometimes desired at specific points along the trajectory , while 
at other times this is unimportant. This option is provided for the user so that 
he may choose output to occur at equal intervals in step number or equal time 
intervals (which places a constraint on the step size). Also, he may choose to 
change from one mode to another along the trajectory. These choices of output 
spacing are effected through the use of the FORTRAN variables MODOUT, DELMAX, 
STEPS, and TMIN, which is explained under the MODOUT entry of table II, a table 
of program control parameters. 

In addition to the output control discussed in the previous paragraph, there 
is another facility that may be quite useful. The integration process may be 
interrupted at an arbitrary point along the trajectory where the point in ques- 
tion is not necessarily a specific time. For instance, it may be desirable to 
interrupt the flight at a specific altitude, velocity, dynamic pressure, and so 
forth. If the point is indeed attained along the path (it may not be), output 
occurs, input cards may be read in, and a decision is made whether to continue 
the .stage, terminate the stage, or terminate the flight. The control of this 
facility is described under the entries in table II for LOOKX, XLOOK, LOOXSW, 
SWLOOK, and END. 


Computer Output 

A basic output format was programed to serve as a basis for modification 
and is illustrated in table III, It is intended that a user of the code modify 
the output to suit his purpose. In addition to examining the normal output, it 
is sometimes desirable to examine the error-control data such as the relative 
errors in the integration variables along the path. These data are printed as a 
single block after completion of a stage if the sign of the input error refer- 
ence value EREF is negative* The sign of EREF is irrelevant in the error- control 
portion of the program, since its absolute value is taken. 


Computer Input 

The user has a choice of three possible sets of input data that specify po- 
sition and velocity: (l) six orbital elements, (2) three Cartesian components 

of velocity and position, and (3) latitude, longitude, azimuth, elevation, veloc- 
ity, altitude, and time. 

The third set mentioned is programed for the Earth only, where the latitude 
and longitude are the geocentric latitude and longitude measured from the equator 
and Greenwich, respectively. The azimuth angle is measured in a plane tangent to 
the sphere of radius r at the point on the sphere determined by the geocentric 
latitude and longitude, and relative to the local meridian, positive eastward 
from north. The elevation angle is then measured in a plane normal to the tan- 
gent plane, positive outward (sketch (b)). Hie tangent plane is taken to be 
horizontal with the effects of oblateness and rotation considered if these ef- 
fects are "on." If oblateness and rotation are "off," the horizontal is perpen- 
dicular to the radial direction. This input option ignores the correction be- 
tween universal time and ephemeris time and between the instantaneous equator and 
equinox and the mean equator and equinox of 1950.0* 
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Long = longitude measured from 
Greenwich in Earth's 
equatorial plane, posi- 
tive east 

Lat = latitude, measured posi- 
tive north, geocentric 

Azi = azimuth angle, measured 
east from north from 
local meridian 

Elev = elevation angle, positive 
outward 

Vel = vehicle's initial velocity 

r = radius of vehicle from 

Earth's center 


A list of input instructions is contained in appendix G along with an input 
check list. 


The input routine described in reference 8 was used because of its simplic- 
ity; however, another input routine may be used if it is desired. 


CODING 

General 

Appendix H contains the code listing of the program. A magnetic tape is 
available (from Lewis) so that the code listing in printed form and/or on cards 
can be reproduced. In addition, the tape contains the merged ephemeris data in 
proper format for use with the code. 

Some of the FORMAT statements are of the G-type. These statements will 
print output in I, E, or F format depending on the nature of the variable. 

Fixed- point variables will take the I format, while floating-point variables will 
assume the F format unless the magnitude of the variable falls outside the useful 
F range, in which case the E format is used. FORTRAN facilities that do not ac- 
cept the G-type format statements may easily substitute E-type formats. 

A condensed description of the program supervisory control is shown in the 
flow diagram of figure 2. Table IV is a map of COMMON allocation (blanks are 
left for the user) and table II contains a description of the program control 
parameters. The elements of the integration variable array (XPRIM) are given in 
table V. The assumed values of the astronomical constants are given in table VI. 
These values are consistent with those given in reference 9. 
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Examples 


Two examples of code usage are presented. The first example, which is de- 
scribed in the following paragraph, is a problem of raising a low-altitude satel- 
lite into a 24-hour orbit by using tangential, low acceleration. The other ex- 
ample is a more complex problem involving a ground- launched lunar probe with a 
three-stage rocket, which is described in appendix I* Both problems were se- 
lected to illustrate the usage of the program rather than to attempt a detailed 
analysis of the example problem. 

For Example I for low-tangential thrust, the trajectory to be determined is 
that used to raise a 3850-kilogram package from an initial 300- statute-mile cir- 
cular equatorial orbit to a 24-hour orbit using a 60, 000- watt nuclear electric 
system with a specific impulse of 2540 seconds and an overall efficiency of 
40 percent. The required engine parameters may be calculated as follows : 

Thrust force: 


E = 


gyi 

Ig c 


2 X 60,000 X 0.4 
2540 X 9.80665 


= 1.927 newtons 


Initial acceleration: 


JL 

mo 


1.927 
“ 3850 


a 5. 0051948X10" 4 


m/. 


sec 


2 


Propellant flow rate: 


-m 



1.927 

2540 X 9.80665 


7. 7361935X10 “ 5 kg/sec 


A detailed account is given in the following paragraphs for the solution of 
this problem by the prescribed program. Only those features of the program that 
have a direct bearing on this particular problem are discussed. Additional pro- 
gram features are discussed in the account of the second example problem. It may 
prove beneficial to refer to figure 2 during these two discussions. Also, all 
statement numbers referred to in the following text correspond to the program 
listing in appendix H. 


It is assumed in the program that all memory data stores are cleared (set 
equal to zero) before operation begins. Control begins when the main program is 
entered. Then a set of so-called "standard data" is "initialized" by executing 
SUBROUTINE STDATA. Before initializing, STDATA clears that area of COMMON C no 
longer needed. 


The next step is calling for input at statement 8. The following list of 
parameters constitutes the input: 
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Parameter 

FORTRAN 

name 

Value 

Initial mass, mo* kg 

RMASS 

3850 

Semilatus rectum, p, m 

P 

6. 86X10 6 

Specific impulse, I, sec 

SIMP 

2540 

Flow rate, -m, kg/sec 

FLOW 

7. 7361935X10" 5 

Time limit, sec 

TB 

a 42590. 2 

Initial step size, sec 

DELT 

a 1500 

Step number limit, steps 

STEEMX 

a 2000 

Frequency of output, 
steps/output 

STEPS 

a 20Q 


a Assumed value* 

Variables such as eccentricity and mean anomaly that are initially zero are 
not included in this list, since all memory data stores are initially zero. 

In accordance with the input routine of reference 8, the input cards may 
appear as 


$DAT A = 1 , if ABLE. 83=RMASS» 718 = P , 103=SIMP, $$ IDENTIFICATION AND 

93=FL0W, I A 3= CELT , 73= TR , 26=STEPMX ,2 7 = STEPi>/ 3>* TABLE DEFINI1I0N 

$$ 

RMASS=3850»SIMP=2540,FL0W=7. 736I935E-5 $$ VEHICLE MASS, ISP, MASS FLOW 
P=6.86E6, TB=A259C.2,STEPMX=2000 $t SEM I L A TUS-RECTUM , TIME LIMIT, STEP LIMIT 

DELT=1500,STEPS=200 INITIAL STEP SIZE, OUTPUT EVERY 2GGIH STEP 

where the entries between the $TAELE and slash (/) reference the subsequent en- 
tries to the second argument C of the calling statement. Thus, for example, 

STEPS is equivalent to C(27), the 27th location from the beginning of COMMON C* 

Part 11 of SUBROUTINE ORDER computes the gravitational constants |_i and 
Vd* Next, SUBROUTINE STAGE is called where the stage data for the first (and 
only) stage are moved into the proper stores for use in the SUBROUTINE NBODY* 

The vacuum value, PUSHO, for the thrust is computed, and then SUBROUTINE NBODY 
is called to integrate the path. 

The next sequence is that of integrating the first two steps* These two 
steps are of equal size and. are integrated before an error check is made* If the 
first two steps are satisfactory (determined by statement 25), the remaining 
steps are integrated while the relative error is being checked at the end of each 
step. Parts 1 and 5 of NBODY are concerned solely with this starting phase. 

Part 1 sets up the starting sequence and causes the initial conditions to appear 
on the output sheet. Parts 2 to 4 accomplish. the Runge-Kutta integration for a 
single step. 

The derivatives used in the integration are obtained from SUBROUTINE EQUATE. 
The first half of this subroutine finds the Cartesian coordinates and velocities 
through use of Kepler's equation. SUBROUTINE THRUST is called to determine the 
components of the thrust acceleration in the Cartesian coordinate system. (Aftep 









control is returned to SUBROUTINE EQUATE, the thrust acceleration is resolved 
into circumferential, radial, and normal components* ) Finally, the derivatives 
of the orbit elements are calculated, and a return is made to NBODY* 


After the Runge-Kutta integration is performed, the error check is made in 
part 5B (part 6 after the starting sequence) by computing the difference between 
the Runge-Kutta integration and the low-order integration. SUBROUTINE ERRORZ is 
called to determine the largest of the relative errors* If the largest of the 
relative errors is greater than the limit value, ERLIMT (set in STRATA), part 8, 
which computes a smaller step size for the same interval, is entered and control 
is returned to part 1* If the greatest relative error is smaller than the limit 
value, part 7, which advances the variables of integration, is entered and calls 
SUBROUTINE STEP to compute the next step size and print out the variables of the 
first step. Part 7 also counts the revolutions past the x-axis and adjusts the 
argument of pericenter and mean anomaly to within dbt to retain accuracy in the 
sine- cosine routines. If the step size exceeds l/2 revolution, the revolution 
count may be short by an integral number. Control is finally transferred to 
part 1 to begin computation of the next step* 


The problem is terminated when the time limit TB is reached. This check is 
done in SUBROUTINE STEP* Had the problem exceeded the step number limit STEPMX, 
it would have terminated at that point. In either case, control is returned to 
the main program to begin the next problem. When no data for another problem 
are given, the execution is terminated (i. e., control is returned to the monitor 
by SUBROUTINE INPUT as a result of an end-of-file on tape 7). The output of the 
last step is 


STEP* 822. + 46. 
TIME® 42590.200 
JDAY* 2440000.4927 
ALFA* 0 


ECCENTRICITY* 
SEMILATUS R.= 
MEAN ANOMALY* 
PATH ANGLE* 


2. 374397 58E-04 
6898546. 50 
1.57060298 
1.36042929E-02 


OMEGA* 
fRU A* 
NODE* 
INCL* 


1.57424484 

1.57107785 

0 

0 


V* 7601.36401 
VX* 26.5485928 
VY*-7601. 31769 
VZ = - 0 


R= 6898546.94 
X* -689 84 98 .81 
Y*-25731.9050 
Z=-Q 


KEFER*EART H ORBIT 1 
KfiASS* 3846.70511 
REVS.* 7.50059360 
CELT* 312.139160 


The time histories of several trajectory parameters for this example are 
shown as solid lines in figure 3* The oscillations of the eccentricity and mean 
anomaly cause a rather small step size, as noted in the figure. To indicate how 
exercising care in selecting the input can increase the computational efficiency, 
the same problem may again be run with the following initial values (according 
to ref. 10) of eccentricity and mean anomaly j 

2(F/m 0 )p 2 



3e 0 


e 0 Y 0 

2Ig c 
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The input cards for this case make use of the algebraic properties of the input 
routine to compute the desired value of these parameters. The cards are 


$DATA=1,. STABLE, 83=KMASS»718=P,103=SIMP, 6S IDENTIFICATION AND 

93=FLGW, 143=CELT , 73=TB , 26=STEPMX , 2 7=S TEPS/ $$ TABLE DEFINITION 

$5 

RMASS=3850,SIMP=2540»FLOW=7. 7361935 E- 5 $$ VEHICLE MASS, ISP, MASS FLOW 
P=6.86E6, TR=4259C.2,STEPMX=2G00 $$ SEMI LATUS-REC TUM , TIME LIMIT, STEP LIMIT 

DELT=150G»STEPS = 200 $$ INITIAL STEP SUE, OUTPUT EVERY 200TH STEP 

$TABLE,713=E , 71 7=MA , 7 14=0MEGA/ E=2*5. 005 1 948E-4»P*P/ 3. 983667E 14$* ECCENTRICITY 
MA=-/620.429/SIMP/9.80665-6*E+3. 1415926/2, STEPS=5 $$ MEAN ANOMALY, OUTPUT CONTROL 
CMEGA=-2*E-MA $$ ADJUST OMEGA (TO START PATH ON THE X-AXIS) 


The dashed lines in figure 3 show the time histories of the same trajectory 
parameters when initial values of e and M given immediately preceding are 
used. The increase in average step size is 15 to 1. To compare the accuracy of 
this approximation with the exact case (eg = Mo ** 0), the final time was chosen 
when the corresponding orbit positions were identical (when the true anomalies 
were equal). At t = 42,590.2 seconds, the orbit positions are nearly identical,' 
and, at this time, the values of position and velocity may be compared as fol- 
lows : 



Case A; 
e 0 = Mg = 0 

Case B: 

eg and Mg ^ 0 

Radius, m 
Velocity, m/sec 
Humber of steps 

6898546.94 
7601. 36401 
822 

6898546.94 
7601. 36407 
55 


For most purposes the two answers would be accepted as equi valent, and 
case B would be preferred because less computer time is required. 


Lewis Research Center 

Rational Aeronautics and Space Administration 
Cleveland, Ohio, July 12, 1963 
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APPENDIX A 
SYMBOLS 

relative angular momentum per unit mass, r X V' (appendix B) 

engine exit area, m 

coefficients for quadratic functions 

total drag coefficient 

induced drag coefficient 

zero angle- of- attack drag coefficient 

lift coefficient 

drag force, newtons 

fourth harmonic coefficient in oblateness equations 

eccentric anomaly, radians 

eccentricity 

thrust force, newtons 

functions of Mach number 

gravitational conversion factor, 9*80665 m/sec^ (sometimes referred to 
as standard Earth gravity) 

third harmonic coefficient in oblateness equations 

altitude above Earth's surface, m 

vacuum specific impulse, sec 

orbit inclination to mean equator of 1950»0, radians 
second harmonic coefficient in oblateness equations 

p Q 

universal gravitational constant, 1. 32452139X10^ , 
m^/(sec2) (sun mass units) 

lift force, newtons 

mean anomaly, radians 

object mass, kg 



mi 

m r 

% 

P 

— > 
P 

? w 

P 

a 

R r 

r 


r i 

S 

T 

t 

U 

W U z 

V 

V’ 

v 

X 


x,y, z 


a 

P 

n 

M- 

p 


mass of i"* 3 * 1 perturbating body, sun mass units 
mass of reference body plus m, sun mass units 
Mach number 

atmospheric pressure, newtons/m 2 
V' X A (appendix B) 
power, w 

semilatus rectum, m 

dynamic pressure, ^ p(V’) 2 , newtons/m 2 

radius of reference body, m 

radius from origin to object, m 

radius from origin to i^* 1 perturbating body, m 

aerodynamic reference area, m 2 

temperature, °K - 

time, sec 

gravitational potential 

x,y,z accelerations due to gravity, m/sec 2 
absolute velocity, m/sec 
relative velocity, m/sec 
true anomaly, radians 

forces acting on object other than gravity, thrust, lift, drag, and 
perturbations due to perturbating bodies 

components of r, m 

angle between thrust and velocity vectors (sketch (a)), deg 
angle of rotation of thrust out of orbit plane (sketch (a)), deg 
power efficiency factor 
k 2 m r 

atmospheric density, kg/nr-' 



a> argument of peri center, radians 

& equatorial longitude of ascending node, radians 

Subscript: 

0 initial value 
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APPENDIX B 


VECTOR RESOLUTION 
Relative Velocity 

The relative velocity is defined as the velocity of the object with respect 
to the origin body. If the origin body is assumed to rotate about the z-axis, 
this velocity is given by 

V' = V - co X r (Bl) 

In x,y,z component form, 

V ' = V x + coy (B2a) 

V^ « Vy - cox (B2b) 

V’ = v z (B2c) 

In the following sections, the atmosphere of the origin body is assumed to ro- 
tate as a solid body at the rate co. 


Thrust Resolution Along x,y,z Axes 


^he thrust direction is specified with respect to the relative velocity vec- 
tor V 1 by the angles a and 3, as shown in sketch (a) (p. 4). For resolution 
of thrust vector into x,y,z compoi^er^ts, it is convenient to define vectors^ A 
j|nd P normal to and within the r,V’ plane, respectively, such that V 1 , A, and 
P form an orthogonal set. Thus, 

__ _ -> — > 

A = r X V' = relative angular momentum per unit mass (B3) 

P s V 1 X A (B4) 


The thrust vector can then be resolved in the V’ ,A,P set as: 

F * V’ » FV’ cos a 
F * A s* FA sin a sin p 
F * P = FP sin a, cos p 

Solving for $ yields 

F = — 5- (V 1 cos a A X P + A sin a sin p P X V' + P sin a cos p P) 


(B5a) 

(B5b) 

(B5c) 


(B6) 
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or, in x,y,z component form, 

F x = — [v’ cos a(AyP z - AgDy) + A sin a sin 3(PyVz - P z Vy) + P sin a cos 3 P X J 

(B7a) 

Fy » JL JV' cos a(A z P x - A^Pg) + A sin a sin 3(P Z V X - P^jV^) + P si - n a cos 3 ^y] 

(B7b) 

F z = ~ [V* cos a(A x P y - AyP x ) + A sin a sin 3(P x v y " Py v x) + p sin a cos 3 P Z J 

(B7c) 


Aerodynamic Lift and Drag Resolution Along x,y,z Axes 

— > — > 

The drag vector D is alined with the relative velocity vector V' and is 

therefore given in x,y,z components as 


- Vi V* V* 

D^-D— -P-i-D — 

V 1 V 1 V' 


(B8) 


The lift vector 3^ may he re_solved into components along the previously de- 
fined orthogonal set V 1 , A, and P by the following relations: 


L • V 1 = 0 
L * A ss LA sin 3 
L * P = LP cos (3 

Solving for L yields 

L = -vr (A sin 3 P X V* + P cos (3 P) 
P^ 

(B9a) 

(B9b) 

(B9c) 

(BIO) 

or, in x,y,z component form, 

T -II 
L x - To 
P^ 1 

r 

[A sin 3 ( Py^z “ p z v y) + P cos 3 P x ] 

(Blla) 

ll 

^|t- 

[A sin 3(P z v x " P X n) + ? cos 3 P y ] 

( Bllb ) 

T -i| 
iz " ,2 

[A Sin 3(P X V y - PyVi) + P cos 3 pj 

(Bile) 
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APEENDIX C 


TRANSFORMATION EQUATIONS FROM ORBIT ELEMENTS 
TO RECTANGULAR COORDINATES 


Z 



From spherical trigonometry used in reference to the celestial sphere shown 
in sketch (c), the following relations may he derived for the position coordi- 
nates ; 


where 


x = r(cos cos u - sin ft sin 
y = r(sin Si cos u + cos Si sin 
z * r(sin u sin i) 


u cos i) 

(Cla) 

u cos i) 

(Clb) 


(Clc) 


r 


P 

1 + e cos v 


and v can he obtained from 


u =* co + v 


(C2a) 

(C2b) 


and 


cos v 


cos E - e 
1 - e cos E 


(C2c) 


M = E - e sin E 


(C2d) 


The velocity components may be obtained by differentiating the position equations 


using the two-body relations d = v = 


« 

,2 


and 


r = 4 /-^ e sin v: 
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(C3a) 


where 


x = - (IT cos i sin ft + Q cos ft) 
y « (H cos i cos ft - Q sin ft) 
z = ^ (K sin i) 


(C3b) 

(C3c) 


K » 

e 

cos 


+ 

cos 

u 

Q - 

e 

sin 

OD 

+ 

sin 

u 


(C4a) 

(C4b) 
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APPENDIX D 


RUNGE-KUTTA AND LOW-ORDER INTEGRATION 
SCHEMES WITH ERROR CONTROL 

The Runge-Kutta formula used is of fourth-order accuracy in step size h. 
It is of the form 



X 2 - X! « | (kp + 2k 2 + 2k 3 + k 4 ) 


(Dl) 


where 

X * a dependent variable 

l 2 

X = increment in the dependent variable 

J 1 


h 2 - increment in the independent variable t 

k l = ^Xg^l^Xp) 

. ( h 2 kp\ 

k 2 - h 2 X 2 I tp + X 1 +-f\ 

( ho k 2 \ 

k 3 = h 2 X 2 ^ + -gS X-l + T j 

k 4 = h 2 k 2 (’t]_ + h 2/ X 4 + k 3 ) 


A lower-order formula may be found by utilizing the three derivatives at 
t = tQ; tp, and t 2 . If hp = tp - to and h 2 = t 2 - tp_, the following Lagran- 
gian interpolation formula gives the derivative at any time tQ < t < t 2 s 


. _ . (t - tp)(t - t 2 ) (t - t Q )(t - t 2 ) (t - t Q )(t - tp) 

X “ ^0 hpThp'+ h 2 ) " *1 hph 2 + ^2 ' h 2 (hp + h 2 ) 


(D2) 


Integration of this equation from tp to t 2 


yields 




(D3) 
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The difference in the increments over the interval hg between the Runge-Kutta 
scheme and theJLow-order scheme may be divided by a nominal value of the depend- 
ent variable X to obtain the relative error 62* Thus, 


5o = 


rf - x] 


X 


(D4) 


The error is expected to vary as approximately the fifth power of h, which 
leads to 


5 » Ah 5 

(where A is a suitable coefficient) or in the logarithmic form 

log 5 a A' +5 log h 


(D5a) 


(D5b) 


where 


A' a log A (D6a) 

Let it be assumed that A 1 will vary linearly with t, the variable of integra- 
tion* Then A 1 at a time corresponding to t 3 can be found from A' at two 
previous points t^ and tg as 

A> _ A' 

A£ = Ag +- — ~ (t 3 - t 2 ) (D6b) 

2 1 

and if h 3 = (t 3 - tg) and hg « (tg - tj_) , 

h 3 

A 3 = ^2 + (^2 ~ ~ (L6c) 

2 

and on this basis S 3 would be predicted to be 

log S3 ** A 3 + 5 log h 3 (D7) 

It is desired that S 3 should approximate 8, the reference error} therefore, 

log h 3 = ^ (log T) - A 3 ) (D8) 

Each dependent variable has an associated relative error and would lead to com- 
putation of a different step size for each variable; however, the maximum rela- 
tive error of all variables may be selected for 8* Obviously, inaccurate pre- 
dictions of step size can occur when the maximum relative error shifts from one 
variable to another or when any sudden change occurs. When a step size produces 
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an excessively large error (8 > S um-i t ) * a reduced step size must be used. It 
may be obtained from the reference error F as 


I 13 ** exp 


1 

5 


(log ^ - A£) 


(D9) 


Starting the integration . - The Runge-Kutta scheme is simple to start, since 
integration from X n to X^-^ requires no knowledge of X less than X n . 

Since the error control coefficient A has no value at t = 0, a prediction of 
the second step size is difficult. To overcome this difficulty, two equal size 
first steps. may be made before checking the error. The A for the first step 
may be arbitrarily set equal to the A for the second step so that h 3 may be 
predicted. The low-order integration scheme equation in this case becomes, with 
h 2 = h x , 

,2 

X'\ * -y (Xq + 4&L + X 2 ) (FIO) 

Failures . - Should two consecutive predictions of the same step fail to 
produce an error 8 less than S umi t.i a return to the starting procedure will 
be made with a third prediction on step size, which is no larger than one-half 
of the second estimate. The step-size control described here will operate stably 
With nearly constant error per step only for a well-behaved function. For most 
problems it will repeat a step occasionally to reduce a large error, and on sharp 
corners it will restart. This action is not regarded as objectionable. The ob- 
jective is to attain a desired level of accuracy with a minimum total number of 
steps. 
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APPENDIX E 


GLOSSARY OP VARIABLES 


VARIABLE 

COMMON 

LOCATION 

DEFINITION 

A (700) 

C(ll) 

ARRAY CONTAINING THE INITIAL DATA AND THE PROGRAM 
CONTROL VARIABLES 

A1 

B(10) 

ERROR CONTROL PARAMETER DEFINED BY £Q. (D6A) AT Til) 

A2 

Bill) 

ERROR CONTROL PARAMETER DEFINED BY EQ. (D6A) AT T ( 2 ) 

ACOEF 1 

B( 12) 

INTERPOLATION POLYNOMIAL COEFFICIENT FOR VARIABLE 
STEP SIZE, EQ. ( D3 ) 

AC0EF2 

B ( 13) 

INTERPOLATION POLYNOMIAL COEFFICIENT FOR VARIABLE 
STEP SIZE, EQ. ( D3) 

AC0EP3 

B ( 14) 

INTERPOLATION POLYNOMIAL COEFFICIENT FOR VARIABLE 
STEP SIZE, EQ. (D3) 

AEXITi (10) 

A( 103) 

ENGINE EXIT AREAS FOR AT MOST 10 STAGES, M**2 

AEXIT 

B( 3) 

AEXITI ( NSTAGE ) 

AK (3) 

A151) 

RUNGE KUTTA COEFF IC IENTS, SET IN STDATA 

ALPHA 

A 1 49) 

ANGLE BETWEEN VELOCITY AND THRUST VECTORS, SEE SKETCH 
(A) 

ALT 

A( 4) 

VEHICLE ALTITUDE ABOVE EARTH, M 

AM 

B( 90) 

TOTAL VEHICLE ANGULAR MOMENTUM PER UNIT MASS, M**2/ 
SEC 

AMASS (30) 

A( 347 ) 

PERMANENT LIST OF BODY MASSES IN ORDER OF PNAME LIST, 
SET IN STDATA, MASSES FROM ELIPS DATA BEGIN AT AMASS 
(21), SUN MASS UNITS 

AMC (3) 

B( 87) 

X, Y, Z COMPONENTS OF ANGULAR MOMENTUM PER UNIT MASS, 
**2)/ SEC 

AMSQRD 

B( 91 ) 

SQUARE OF TOTAL ANGULAR MOMENTUM PER UNIT MASS»M**4/ 
SEC**2 

AREAl (10) 

A( 113) 

AERODYNAMIC REFERENCE AREAS FOR AT MOST 10 STAGES, 
M**2 

AREA 

B ( 6 ) 

AREAl ( NSTAGE ) 

ASYMPT 

All) 

SEE TABLE II 

ATMN 

A ( 2 1 ) 

SEE TABLE II 

AU 

A ( 29 ) 

ASTRONOMICAL UNIT.M 

AW (4) 

A ( 55 ) 

RUNGE KUTTA COEFFICIENTS, SET IN STDATA 

AZI 

A ( 35 ) 

INITIAL AZIMUTH ANGLE, USED WHEN IMODE = 4, SEE SKETCH 


( B) t DEGREES 
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B (BOO) 

C(llll) 

ARRAY CONTAINING INTERNAL PARAMETERS NOT UNDER USER 
CONTROL 

BETA 

A (50) 

ANGLE BETWEEN VELOCITY-THRUST PLANE AND ORBIT PLANE, 
SEE SKETCH! A ) 

BMASS (8) 

B( 137 ) 

BODY MASSES SELECTED FROM AMASS LIST IN SEQUENCE COR- 
RESPONDING TO BNAME LIST 

BN AM £ (8) 

6(122) 

ORDERED LIST OF BCD BODY NAMES 

BODYCD (10) 

A ( 143 ) 

ORIGINAL UNORDERED LIST OF BCD BODY NAMES READ IN AT 
INPUT 

60DYL (10) 

BI153) 

AUXILIARY ORDERED LIST OF BCD BODY NAMES 

CD 

A ( 165 ) 

TOTAL DRAG COEFFICIENT 

CD I 

A( 163 ) 

INDUCED DRAG COEFFICIENT 

CHAMP 

B ( 25 ) 

SMALLEST CRITICAL RADIUS (RBCRIT(J)) WITHIN WHICH 
OBJECT LIES 

CINCL 

8(55) 

COSINE OF INCLINATION 

CIRCUM 

B ( 82 ) 

CIRCUMFERENTIAL COMPONENT OF TOTAL PERTURBATIVE AC- 
CEL ER AT ION, M/ SEC* *2 

CL 

A ( 164 ) 

LIFT COEFFICIENT 

CLEAR 

C(3 ) 

SEE TABLE II 

COEFN (192) 

A ( 407 ) 

STORAGE ARRAY FOR COEFFICIENTS USED TO COMPUTE ALPHA, 
CL,CDI , CD OR OTHER PARAMETERS 

COMP A (31 

B(63) 

COMPONENTS OF TOTAL PERTURBATIVE ACCELERATION ALONG X 
,Y,Z AXES. 

CONSU 

A ( 31 ) 

SEE TABLE II 

CONSTU 

A 1 32) 

SEE TABLE II 

COSALF 

B ( 48 ) 

COSINE OF ALPHA 

COSBET 

B ( 49 ) 

COSINE OF BETA 

COSTRU 

B ( 53 ) 

COSINE OF TRU 

COSV 

B( 57) 

COSINE OF THE ARGUMENT OF LATITUDE 

D (1100) 

C(2111) 

ARRAY WHERE SAVED DATA IS STORED FOR LATER USE. 
ARRAYS A.XPRIM.AND XPRIMB MAY BE SAVED. 

DELMAX 

A ( 19 > 

SEE TABLE II 

DEL 

A ( 43 ) 

OUTPUT CONTROL PARAMETER USED IN STEP 

DELT1 (10) 

A( 133) 

INITIAL STEP SIZES FOR AT MOST 10 STAGES, SEC 

DELT 

B( 1) 

DELT1 ( NSTAGE ) 

ONSITY 

8(29) 

ATMOSPHERIC DENSI TY, KG/M**3 

DONE 

B( 39) 

CONTROL PARAMETER FROM STEP WHICH INFORMS NBODY TO 
STOP INTEGRATING 
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DRAG (3) 

8(69) 

X,Y,Z COMPONENTS OF THE DRAG ACCELERAT ION, M/SEC**2 

DTOFFJ 

A ( 23) 

JULIAN DATE OF TAKEOFF 

E2 

8(18) 

LARGEST OF THE RELATIVE ERRORS BETWEEN R-K AND LOW- 
ORDER INTEGRATION METHODS, EQ. (D4) 

EFMRS 17) 

B( 130) 

LIST OF BCD BODY NAMES WHOSE POSITIONS ARE TO BE DE- 
TERMINED FROM TAPE DATA 

ELEV 

A ( 36 ) 

INITIAL ELEVATION ANGLE, USED WHEN 1M0DE=4, SKETCH(B) 
DEGREES 

EL IPS 112,10) 

Al 167) 

ELLIPSE DATA FOR PERTURBATING BODIES, READ FROM CARDS 
12 PIECES OF DATA PER BODY 

EMONE 

8(28) 

ECCENTRICITY -1 

END 

A( 5 ) 

SEE TABLE II 

EPAR 

8(26) 

SQUARE ROOT OF (ECCENTRICITY SQUARED -1) 

EREF 

A( 13) 

SEE TABLE II 

ERLIMT 

A ( 1 A ) 

SEE TABLE II 

ERLDG 

B( 17) 

NATURAL LOGARITHM OF EREF 

ETOL 

A ( 30 ) 

SEE TABLE II 

EXITA 

B ( 392 ) 

AEXIT(NSTAGE)/100» NEWTONS/MB 

EXMODE 

8(27) 

ECCENTRICITY CALCULATED WHEN IM0DE=3 

FILE 

B(22) 

SEE TABLE II 

FLOW! (10) 

A ( 83 ) 

RATE OF PROPELLENT FLOW, KG/SEC 

FLOW 

6(5) 

FL0W1 ( NSTAGE ) 

FORCE (3) 

8(66) 

X , Y, Z COMPONENTS OF THRUST ACCELERATION, M/SEC**2 

GASFAC 

A ( 46 ) 

DEFINED IN SUBROUTINE AERO, SET IN STDATA 

GEOH 

B ( 32 ) 

GEOPOTENTIAL, M 

GK2M 

6(36) 

GRAVITATIONAL CONSTANT, MU, OF THE SYSTEM, M«*3/SEC**2 

GKM 

8(37) 

SQUARE ROOT OF GK2M 

H2 

8(15) 

VALUE OF DELT FOR PREVIOUS STEP 

IBOOY (8) 

8(177) 

DEFINED IN SUBROUTINE ORDER 

ICC (10) 

A( 153 ) 

SEE TABLE II 

IDENT (10) 

A ( 123) 

INPUT IDENTIFICATION NUMBERS ASSOCIATED WITH EACH 
STAGE 

I MODE 

A ( 1 ) 

SEE TABLE II 

IND (3) 

A ( 60 ) 

SET OF INDICES, SET IN STDATA 

INDERR 

8(51) 

NUMBER OF SETS OF ERROR DATA, SET IN ERRORZ FOR USE 
IN NBODY 
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INLOOK 


A ( 599 ) 

INPUT IDENTIFICATION NUMBER FOR INPUT AFTER FINDING C 
(LOOKX) = XLOOK 

KSUB 


B( 19) 

INDEX OF RUNGE-KUTTA SUBINTERVALS 

EAT 


A ( 33) 

INITIAL GEOCENTRIC LATITUDE, USED WHEN IM0DE=4, SKETCH 
(B), DEGREES 

LONG 


A<34) 

INITIAL LONGITUDE RELATIVE TO GREENWICH, USED WHEN 
IMQ0E=4» SKETCH(B), DEGREES 

LOOKX 


A( 8 ) 

SEE TABLE II 

LOOKSW 


AI9) 

SEE TABLE II 

LSTAGE 


A ( 38 ) 

TOTAL NUMBER OF STAGES INTEGRATED BEFORE RETURNING TO 
THE MAIN PROGRAM 

MBODYS 


B(42) 

NUMBER OF PERTURBATING BODIES (NBODYS-l) 

MODOUT 


A ( 20 ) 

SEE TABLE II 

NBODYS 


B(41) 

TOTAL NUMBER OF BODIES, EXCLUDING THE VEHICLE 

NCASES 


A ( 600 ) 

SAVED VALUE OF NCASE 

NCASE 


cm 

CASE NUMBER, RAISED ONCE EACH TIME CONTROL PASSES 
THROUGH THE MAIN PROGRAM 

NEFMRS 

(8) 

8(185) 

DEFINED IN SUBROUTINE ORDER 

NEQ 


A( 2 ) 

NUMBER OF EQUATIONS TO BE INTEGRATED, SET TO 8 IN 
STOATA 

NSAVE 


C(4) 

SEE TABLE II 

NSTAGE 


A(3) 

THE INDEX INDICATING THE PARTICULAR STAGE CURRENTLY 
BEING INTEGRATED 

NSTART 


B (24) 

INTERNAL CONTROL IN NBODY AND EQUATE 

OBLATJ 


A ( 26 ) 

OBLATENESS COEFFICIENT OF SECOND HARMONIC 

OBLATD 


AI27) 

OBLATENESS COEFFICIENT OF FOURTH HARMONIC 

OBLATH 


A ( 28 ) 

OBLATENESS COEFFICIENT OF THIRD HARMONIC 

OBLATN 


A ( 40 ) 

SEE TABLE II 

OBLAT (3) 

8(75) 

X, Y, Z COMPONENTS OF OBLATENESS ACCELERATION, M/SEC**2 

OLDDEL 


B( 9 ) 

VALUE OF DELT FOR PREVIOUS GOOD STEP 

ORBELS 

(6) 

B( 116) 

ARRAY OF OUTPUT VAR I ABLES , E I THER RECTANGULAR OR ORBIT 
ELEMENTS 

OUTPOT 


B( 399 ) 

CAUSES ABSENCE OF OUTPUT WHEN NONZERO 

P (3) 


B( 84) 

DEFINED IN EQ. (B4) 
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PAR 13) 

B ( 60 ) 

DEFINED BY EQUATIONS IN SUBROUTINE THRUST 

PMAGN 

B(50) 

DEFINED IN EQUATION FORM BY SUBROUTINE THRUST 

PNAME (30) 

A ( 2 87 ) 

PERMANENT LIST OF BODY NAMES MADE FROM PNAA LIST IN 
SUBROUTINE ORDER, ELIPS NAMES BEGIN AT PNAME(21) 

PRESS 

B(33) 

ATMOSPHERIC PRESSURE, MB 

PSI 

B ( 3 0 ) 

PATH ANGLE, ANGLE BETWEEN PATH AND LOCAL HORIZONTAL, 
DEGREES 

PSIR 

8(398) 

RELATIVE PATH ANGLE, TAKEN RELATIVE TO A ROTATING 
ORIGIN BODY, DEG 

PUSH 

A ( 166) 

THRUST FORCE, NEWTONS 

PUSHO 

B( 39L) 

VACUUM THRUST FORCE, NEWTONS 

Q 

B( 59 ) 

DYNAMIC PRESSURE, NEWT0NS/M**2 

QMAX 

B(44) 

MAXIMUM VALUE OF Q DEVELOPED DURING A SINGLE TRAJEC- 
TORY (SET TO ZERO WHEN CONTROL PASSES THROUGH SUB- 
ROUTINE EXTRA) 

QX (3) 

B( 78) 

X,Y,Z COMPONENTS OF PERTURBATIVE ACCELERATION DUE TO 
PERTURBATING BOOIES, M/SEC**2 

R (8) 

B( 102 ) 

DISTANCES OF ALL BODIES FROM OBJECT, IN ORDER OF 
BNAME LIST, M 

RADIAL 

B( 8 1 ) 

RADIAL COMPONENT OF TOTAL PERTURBATIVE ACCELERATION, 
POSITIVE OUTWARD, M/SEC**2 

RAMC (5) 

B(393) 

RELATIVE ANGULAR MOMENTUM PER UNIT MASS COMPONENTS, 
TOTAL RELATIVE ANGULAR MOMENTUM PER UNIT MASS, AND 
ITS SQUARE, M**2/ SEC 

RATM 

A ( 22 ) 

RADIUS OF ATMOSPHERE, M 

RATMOS 

8(23) 

SET EQUAL TO RATM WHEN ATMN EQUALS THE REFERENCE BODY 
NAME, BNAME ( 1 ) 

RATIO 

8(58) 

RATIO OF ADJACENT STEP SIZES, CELT 

RB (3,8) 

B( 193) 

X, Y , Z COMPONENTS OF DISTANCE FROM ALL BODIES TO THE 
OBJECT, M 

RBCRIT (8) 

B( 1A5 ) 

LIST OF SPHERE-OF-INFLUENCE RADII OF ALL BODIES IN 
BNAME LIST, M 

RCRIT (30) 

A(377) 

PERMANENT LIST OF SPHERE-OF-INFLUENCE RADII CORRES- 
PONDING TO PNAME LIST OF BODY NAMES. RADII FROM ELIPS 
DATA BEGIN AT RCRIT(21), M 

RE 

A1 25 ) 

RADIUS OF EARTH EQUATOR, M 

RECALL 

C ( 5 ) 

SEE TABLE II 

REFER (30) 

A ( 317 ) 

LIST OF REFERENCE BODIES CORRESPONDING TO PNAME LIST, 
REFERENCE BODIES FROM ELIPS DATA BEGIN AT REFER( 21 ) 

RESQRD 

B( 7 ) 

SQUARE OF RE 

RETURN 

BUOO) 

CAUSES CONTROL NOT TO RETURN TO MAIN PROG. IF NONZERO 
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REVS 

A (48) 

REVOLUTION COUNTER, USED ONLY FOR OUTPUT 

REVOLV 

8(21) 

ROTATION RATE OF REFERENCE BODY WHEN ATMN=BNAME ( 1 ) « 
RAO/SEC 

RMASS1 110) 

A( 73 ) 

INITIAL MASSES FOR AT MOST 10 STAGES, KG 

ROTATE 

A ( 39 ) 

ROTATION RATE OF A REFERENCE BODY, RAD/SEC 

RSQRD 

B ( 45 ) 

RADIUS SQUARED OF OBJECT TO ORIGIN, M**2 

SIGNAL 

B ( 3 1 ) 

SEE TABLE II 

SIMP1 110) 

A ( 93 ) 

SPECIFIC IMPULSES FOR AT MOST 10 STAGES, SEC 

SIMP 

B ( 2 ) 

SIMPKNSTAGE) 

SINALF 

8(46) 

SINE OF ALPHA 

S INSET 

B { 47 ) 

SINE OF BETA 

SINTRU 

B ( 52 ) 

SINE OF TRU 

SINCE 

B ( 54 ) 

SINE OF INCLINATION 

SINV 

B ( 56 ) 

SINE OF THE ARGUMENT OF LATITUDE 

SPACES 

B( 16) 

NUMBER OF EQUAL TIME UNITS UNTIL NEXT OUTPUT 

SPD 

A ( 44) 

SECONDS PER DAY, SET IN STDATA, SEC/DAY 

SQRDK1 

A( 47 ) 

GRAVITATIONAL CONSTANT OF THE SUN, AU**3/DAY**2 

SQRDK 

B ( 35 ) 

GRAVITATIONAL CONSTANT OF THE SUN, M**3/SEC**2 

STEPMX 

A( 16) 

SEE TABLE II 

STEPS 

A ( 1 7 ) 

SEE TABLE II 

STEPGO 

A ( 41 ) 

COUNT OF SUCCESSFUL INTEGRATION STEPS 

STEPNO 

A (42) 

COUNT OF UNSUCCESSFUL INTEGRATION STEPS (THOSE WHICH 
DO NOT PASS ERROR CONTROL TEST) 

SWLOQK 

A( 10) 

SEE TABLE II 

TABLT 

B (20 ) 

TIME MEASURED RELATIVE TO THE JULIAN DATE OF TAKEOFF 
DAYS 

TABLE (200) 

C( 1911) 

ARRAY OF INPUT PARAMETERS AND THEIR COMMON STORE LO- 
CATIONS 

TAPE-3 

C ( 2 ) 

SEE TABLE II 

TB 110) 

A ( 63) 

FLIGHT TIMES FOR AT MOST 10 STAGES, SEC 
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TDATA (6,3,7) 

B(265) 

COEFFICIENTS FROM EPHEMERIOES TAPE TO BE USED IN DE- 
TERMINING POSITIONS AND POSSIBLY VELOCITIES OF PER- 
TURBATING BODIES, ONE SET FOR EACH OF 7 BODIES 

TDEL (7) 

B( 170) 

ONE-HALF OF TIME SPACING BETWEEN TWO ADJACENT ENTRIES 
OF LIKE BODY NAME ON EPHEMERIDES TAPE, READ FROM 
TAPE FOR EACH BODY 

TFILE 

A ( 6 ) 

SEE TABLE II 

TIM (7) 

B ( 163) 

TIME FOR SET OF EPHEMERIS DATA, READ FROM EPHEMERIOES 
TAPE, ONE FOR EACH BODY 

TKICK 

A( 15) 

INITIAL STEP SIZE OF A TRAJECTORY TO BE COMPUTED IN 
CLOSED-FORM, FOR USE WHEN IM0DE=4, WHICH FACILITATES 
STARTING OF SOME TYPES OF TRAJECTORIES 

TM 

B(34) 

ATMOSPHERIC TEMPERATURE TIMES THE RATIO OF MOLECULAR 
TO ACTUAL MOLECULAR WEIGHT, DEGREES KELVIN 

TMAX 

6(4) 

SEE TABLE II 

TM IN 

A ( 18 ) 

SEE TABLE II 

TOFFT 

A ( 24) 

FRACTIONAL PART OF JULIAN DATE OF TAKEOFF, DAYS 

TRSFER 

B ( 8 ) 

SEE TABLE II 

TRU 

B l 40 ) 

TRUE ANOMALY, RAD 

TTEST 

A ( 54) 

SEE TABLE II 

T;T0L 

AI45) 

TIME TOLERANCE WITHIN WHICH PROBLEM TIME MINUS TMAX 
MUST LIE TO END STAGE 

U 

A ( 59 ) 

ECCENTRIC ANOMALY, RAD 

V 

B ( 95 ) 

VELOCITY OF OBJECT RELATIVE TO THE ORIGIN, M/SEC 

VATM (3) 

B ( 97 ) 

X, Y, Z COMPONENTS OF THE RELATIVE VELOCITY, VQ, M/SEC 

VEFM (3,8) 

B ( 241 ) 

X, Y, Z COMPONENTS OF OBJECT VELOCITY RELATIVE TO ALL 
BODIES, M/SEC 

VEL 

A ( 37 ) 

INITIAL RELATIVE VELOCITY, USED WHEN IM0DE=4, SKETCH 
IB), M/SEC 

VMACH 

B ( 38 ) 

MACH NUMBER OF OBJECT 

VQ 

B ( 100) 

VELOCITY OF OBJECT RELATIVE TO ATMOSPHERE, M/SEC 

VQSQRD 

B(101) 

SQUARE OF VQ, M**2/SEC**2 

VSQRD 

B ( 96 ) 

SQUARE OF V, M**2/SEC**2 

vx 

B ( 92 ) 

X COMPONENT OF VELOCITY, M/SEC 

VY 

B ( 93 ) 

Y COMPONENT OF VELOCITY, M/SEC 

vz 

B ( 94 ) 

Z COMPONENT OF VELOCITY, M/SEC 

X (100) 

B ( 401 ) 

WORKING SET OF INTEGRATION VARIABLES 

XDOT (100) 

B ( 501 ) 

TIME DERIVATIVES OF THE SET X 
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XI FT (3) 

Bl 72) 

XINC (100) 

B ( 60 1 ) 

XLOOK 

Al 12) 

XP (3,8) 

B ( 2 17 ) 

XPRIM (100,2) 

C( 711 ) 


XPRIMB 

(100,2) 

C ( 9 1 1 ) 

XTOL 


A ( 1 1 ) 

XWHOLE 

(6) 

B(llO) 

ZN 


B(43) 

ZORMAL 


B ( 83 ) 


X,Y,Z COMPONENTS OF LIFT ACCELERATION, M/S£C**2 
INCREMENTS OF THE INTEGRATION VARIABLES PER STEP 
SEE TABLE II 

X, Y , Z COMPONENTS OF PERTURBATING BODY POSITIONS RELA- 
TIVE TO ORIGIN 

TWO 100-ELEMENT SETS, THE FIRST SET CONTAINS VALUES 
OF THE INTEGRATION VARIABLES AT THE PREVIOUS GOOD 
STEP, THE SECOND SET IS UNDER THE INTEGRATION PROCESS, 
SEE TABLE V 

LEAST SIGNIFICANT HALF OF DOUBLE PRECISION INTEGRA- 
TION VARIABLES XPRIM 

TOLERANCE ON THE DI SC IM INAT I ON C ( LOOKX ) -XLOOK TO BE 
SATISFIED 

RECTANGULAR COORDINATES AND VELOCITIES, SET ASIDE FOR 
USE IN ORIGIN TRANSLATIONS 

MEAN ANGULAR MOTION OF OBJECT, RAD/SEC 

Z COMPONENT OF TOTAL PERTURBATIVE ACCELERATION, 
M/SEC**2 
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APPENDIX F 


LEWIS RESEARCH CENTER EPHEMERIS 
General Description 

The ephemeris data initially available on magnetic tape were from the Themis 
code prepared by the Livermore Laboratory, evidently from U. S. Naval Observatory 
data. Later, an ephemeris was obtained from the Jet Propulsion Laboratory assem- 
bled as a joint project of the Jet Propulsion Laboratory and the Space Technology 
Laboratory. These data are given relative to the mean vernal equinox and equator 
of 1950. 0 and are tabulated with ephemeris time as the argument. 

An ephemeris was desired for certain uses in connection with the IBM 7090 
computer that would be shorter than the original ephemeris tapes mentioned and 
would be as accurate as possible consistent with the length. A short investiga- 
tion of the various possibilities led to adoption of fitted equations. In par- 
ti cular, fifth-order polynomials were simultaneously fitted to the position and 
velocities of a body at three points. This procedure provides continuity of po- 
sition and velocity from one fit to the next, because the exterior points are 
common to adjacent fits. Polynomials were selected rather than another type of 
function, because they are easy to evaluate. Three separate polynomials are used 
for the x, y, and z coordinates, respectively. 


Procedure Used to Fit Data 

The process of computing the fitting equations is as follows: 

(1) A group of 50 sets of the components of planetary position was read 
into the machine memory for a single planet together with differences as they 
existed on the original magnetic tape. The differences were verified by compu- 
tation (in double precision because some data required it); and any errors were 
investigated, corrected, and verified. Published ephemeris data were adequate 
to correct all errors found. 

(2) The components of velocity v x , Vy, and v z were computed and stored 
in the memory for each of the 50 positions by means of a numerical differentia- 
tion formula using ninth differences} namely, 

AI_j_ + AI + ^ AIII_-j_ + AIII + ^ AV_2_ + AV + q_ 

— - — + gg 

avii_- l + avii +1 aix_ x + aex +1 "| 

" 280 + 1260 < ' P1 

(See ref. 11, pp. 42 and 99 for notation. ) Double-precision arithmetic was used 
for differences, but velocities were tabulated with single precision. 


X = (Ti - T.-l) 
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(3) Coefficients C, D, E, and F in the fifth-order polynomial 

X = % + Xq(T - T 0 ) + C(T - T q ) 2 + D(T - T Q ) 3 + E(T - T Q ) 4 + F(T - T Q ) 5 (F2) 

and its derivative 

X = Xq + 2C(T - Tq) + 3D(T - T Q ) 2 + 4E(T - T 0 ) 3 + 5F(T - T Q ) 4 (F3) 

were found to fit a first point (which was far enough from the beginning point 
to have all differences computed) and two equally spaced points for each compo- 
nent of position and velocity. (The initial spacing is not important, as will be 
seen later. ) Spacing is defined as the number of original data points fitted by 
one equation. Single-precision arithmetic was used. 

(4) The coefficients C, D, E, and F in step (3) were then used in equa- 
tions (F2) and (F3) to calculate components of all positions and velocities given 
in the original data and lying within the interval fitted. These values were 
checked with the original data. Radius R and velocity V were computed at the 
times tabulated in the original data. If any component of the position differed 
from the original data by more than RX10" 7 or if any velocity differed from the 
original by more than VXIO-'S, the fit was considered unsatisfactory. 

(5) If the fit was considered unsatisfactory, this fact was recorded, and 
the spacing was reduced by two data points. Steps 2 to 4 were then repeated. If 
the fit was considered satisfactory, this fact was recorded, and the spacing was 
increased by two spaces. Steps 2 to 4 were repeated. The largest satisfactory 
fit was identified when a certain spacing was satisfactory and the next larger 
fit was not satisfactory. 

(6) The coefficients that corresponded to the largest satisfactory fit were 
recorded on tape ,in binary mode as follows : 


Word 

number 

Data 

Mode 

Definitions and/or units 

1 

Planet name 

BCD 

Six characters (first six) 

2 

Julian date 

Floating point 

Date of midpoint of fit, Julian date 

3 

Delta T 



Number of days on each side of midpoint 

4 




a AU/day 5 

5 

Ex 



a AU/day 4 

6 

»X 



a AU/ day 3 

7 

Cx 



aAU/day2 

8 

* 



a AU/day 

9 

X 



a AU 

10 

F y 



a AU/day 5 

11 

E y 



a AU/ day 4 

12 




a AU/ day 3 

13 

°y 



a AU/ day 2 

14 

r 



a AU/ day 

15 

y 



a AU 

16 

F z 



a AD/day 5 

17 

E z 



a AU/ day 4 

18 

Dz 



a AU/ day 3 

19 

c z 



a AU/ day2 

20 

£ 



a AU/day 

21 

z 



a AU 


a Except for Moon data, which are in Earth radii and days. 
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(7) As soon as a set of coefficients was selected for an interval, addi- 
tional data were read from the source ephemeris tape and used to replace the 
points already fitted (except the last point). These data were processed as de- 
scribed in steps 1 and 2 so that the next 50 points were ready to be fitted. 
Steps 3 to 6 were then used to find the next set of coefficients, and steps 1 
to 6 were repeated until all data for all planets were fitted. 


Data Treated 

The preceding process was applied to all data available at the time. For 
the Moon, the technique usually led to the use of every point in the fitted in- 
terval (i. e, , only three points were fitted). Thus, a check of accuracy was not 
available. The error in the attempt to fit the next greater interval (five 
points) was not excessive, however, and it is judged that the accuracy obtained 
from these fits is about equal to that held on the other bodies. 


Merged Ephemeris Tape 

Once all the positions and velocities of all the bodies then available were 
fitted, the coefficients were merged in order of the starting date of each fit. 
The resulting tape was written in binary mode with 12 sets of fits per record. 

The detail of this record is as follows: 


Set 1 


Set 2 


1st word: 
2nd word: 
3rd word: 
4th word: 


23rd word: 


FORTRAN compatible 

file number, fixed point in decrement 

planet name, code in BCD, first six characters 

Julian date, floating point 

etc, , according to list in paragraph 6 

21 words 

z 


24th word: 
25th word: 


planet name, code in BCD, first six characters 
Julian date, floating point 


44th word: 


z 


Successive sets follow one another with a total of 12 sets. 


Set 12 
(last set) 


{ 234th word; planet name 
235th word: Julian date, 

254th word: z 

End-of-record gap 


floating point 


One record contains 254 words, the first is for FORTRAN compatibility, the second 
is a file number used for identification in the system. It is a fixed point 2. 
The third is the beginning of the first set of data, and 12 sets follow each with 
21 words. The last word is the 254th word (counting the FORTRAN compatible word) 
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followed by an end-of-record gap. Hie remaining records are compiled in the same 
manner with an end-of-file recorded as a terminating mark. 

Because of the merging operation, all bodies are given in one list in a 
random order according to the starting date of the interval. The starting date 
is the Julian day (word 2) minus the half interval (word 3) (see procedure, par- 
agraph 6). The entire ephemeris occupies about one-seventh reel of tape. A 
summary of data is given in table VII. 
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APPENDIX G 


INPUT-DATA REQUIREMENTS 

The procedure needed to run actual problems with the aid of this routine is 
described herein. It is intended to permit the user with a specific problem in 
mind to make a complete list of data required and to select desirable operating 
alternatives from those available. The details of this procedure are contained 
in the following instructions: 

(1) Provision has been made for two types of ephemeris data to specify the 
locations of celestial bodies that perturb the vehicle. They are ellipse data 
and ephemeris-tape data. If the problem does not involve perturbing bodies (ex- 
cept a reference body) or if elliptic data are used for all the perturbing 
bodies, skip to instruction 5, 

(2) If the perturbing-body data are to be taken from an ephemeris tape, list 
the names of the ephemerides and Julian dates to be covered along with the fol- 
lowing auxiliary information: 

1st card: $DATA = 300, $TABLE , 2 = TAPE 3, 17 = ELIST, 29 = TBEGIN, 

30 = TEND/ 

Other cards : TAPE 3=0 

TBEGIN s= ephemeris beginning Julian date 
TEND = ephemeris ending Julian date 

ELIST = (names of perturbing bodies in "ALF" format, see 
example in text) 

The ephemerides of all planets except Earth bear the name of the planet. The 
ephemeris giving the distance from Earth to the Sun is called "sun," as is 
astronomical practice. 

(3) If successive files on the ephemeris tape are to be made, punch the 
corresponding sets as follows: 

$DATA = 300, TAPE 3 = 0, TBEGIN = , TEND - , ELIST » 

As many similar sets as are needed may be appended. 

(4) If ellipse data are to be loaded from cards, they are prepared later 
under instruction 11. 

(5) On the first execution after loading the routine, the common area is 
cleared whether an ephemeris tape is constructed or not. It is now necessary to 
load a table of variable names. Once loaded, this table will not be cleared 
again (except if the control variable TAPE 3 is set equal to zero). These names 
are for use on the input cards. If a different name is desirable for any 
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variable, it may be- changed in the table and where it appears on the input card 
(ref. 7). The cards are: 


$ DAT A-l,$ TABLE, 33-DTOFFJ, 34-TOFFT, 711=TIME, 716-X, 717-Y, 718-Z, 
713-VX, 714-VY, 7 15— VZ, 11. -IMODE, 713-E, 714-OMEGA, 715-NODES, 

716— IN CL, 717— MA, 7'18-P, 43-LAT, 44-LONG, 45-AZI, 46-ELEV, 14-ALT, 
47-VEL, 16— TFILE, 28-TMIN, 153-BODYCD, 177-ELIPS, 30.-M0D0UT, 
27-STEPS, 29-DELMAX, 26-STEPMX, 23-EREF, 24-ERLIMT, 4. -NS AYE, 
5-RECALL, 3-CLEAR, 18.-L00KX, 22-XL00K, 19.-L00KSW, 20-SWL00K, 

609. -INLOOK, 15-END, 31-ATMN, 32-RATM, 49-ROTATE, 417-COEFN, 

163. -ICC, 60-BETA, 50— OBLATN, 73-TB, 93-FLOW, 103-SIMP, 123-AREA, 
143-DELT, 83-RMASS, 113-AEXIT, 133.-IDENT, 48.-LSTAGE, 25-TKICK / 

(6) The initial position and velocity of the vehicle may be given in any one 
of the three coordinate systems. If the initial data are given in orbit ele- 
ments, skip to instruction (8). If the initial data are given in rectangular co- 
ordinates, skip to instruction (7). If the initial data are given in Earth- 
centered spherical coordinates, the following variables should be punched: 

LAT = latitude, deg, positive north of equator 

LONG = longitude, relative to Greenwich, deg 


ALT - altitude above sea level, m 

AZI - azimuth angle, east from north, deg 

ELEV = elevation angle, horizontal to path, deg 

VEL - initial relative velocity, m/sec 

TKICK = size of initial vertical, nondrag step to facilitate starting, 
sec 

If the Earth is assumed to be rotating but aerodynamic forces are not 
to be considered, set 

ROTATE = Earth rotation rate, 7.29211585X10“^ radian/sec 

If integration in rectangular coordinates is desired set 
IMODE - 4 

or else if integration in orbit elements is desired set 
IMODE = -4 

Skip to instruction (9). 

(7) If the initial data are in rectangular coordinates, set the following 
variables : 

X = x-component of position in x,y,z coordinate system, m 
Y = y- component of position in x,y,z coordinate system, m 
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Z sa z-component of position in x,y,z coordinate system, m 

VX = x- component of velocity in x,y,z coordinate system, 

VY = y-component of velocity in x,y,z coordinate system,, 

YZ *s z-component of velocity in x,y,z coordinate system. 

If integration in rectangular coordinates is desired set 
IMODE a 2 

or else, if integration in orbit elements is desired set 
IMODE = -2 

Skip to instruction (9). 

(8) If the initial data are in orbit elements, set the following variables: 

E st eccentricity 

OMEGA = argument of pericenter, radians 

NODES = longitude of ascending node (to mean vernal equinox of 1950.0), 
radians 

INCL st orbit inclination to mean equator of 1950.0, radians 
MA = mean anomaly, radians 
P = semilatus rectum, m 

If integration in orbit elements is desired set 
IMODE = 1 

or else. If integration in rectangular coordinates is desired set 
IMODE = -1 

(9) To specify takeoff time, set the following variables: 

DTOEFJ a Julian day number 
TOFFT = fraction of day 

TIME = time from previously set Julian date, sec 

Takeoff occurs at the instant (ephemeris time) corresponding to the sum of the 
last three quantities. If a specific date or time is not required, these vari- 
ables may be skipped. In that case, the SUBRODTINE STDATA sets DTOEEJ to 
2440 000. 

(10 ) To specify the origin and any perturbing bodies, list them as B0DYCD a 
(list of body names in "ALP" format, see text example). The first body in the 
list is taken to be the reference body. The distances between the bodies in 


m/sec 
m/sec 
m/ sec 
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this list must be computable from either ellipse data (instruction (ll)) or 
ephemeris-tape data (instruction (2)). There may be no more than eight names in 
the list. Also, if the ephemeris tape is being used, the correct file must be 
found on it. For this purpose, set TFTLE = desired ephemeris-tape file. The 
ephemeris files were numbered in sequence when written in instruction (2). If 
TFILE is not given, it will be set equal to 1.0 by the SUBROUTINE STDATA. 

(11) For each body whose path is represented by an ellipse, a 12-element 
set of data must be loaded. A 12-element set consists of: 

1. Body name in "ALF" format (maximum of six characters) 

2. Reference body name in "ALF" format (maximum of six characters) 

3. Mass of body, sun mass units 

4. Radius of sphere of influence, m 

5. Semilatus rectum, AU 

6. Eccentricity 

7. Argument of pericenter, radians 

8. Longitude of ascending node (to mean vernal equinox of 1950.0), 

radians 

9. Orbit inclination (to mean equator of 1950.0), radians 

10. Julian day at perihelion 

11. Fraction of day at perihelion 

12. Period, mean solar days 

It is convenient to punch a 12-element set in sequence and to separate the ele- 
ments by commas on as many cards as are required. Several sets may then be 
loaded consecutively. The order of the sets is immaterial. Ellipse data, if 
present, take precedence over ephemeris-tape data. The sets are loaded consecu- 
tively, in any order, as follows: 

ELIPS = set 1, set 2, set 3, . . ., set n/ n < 10 (see example in appen- 
dix I) 

(12 ) If oblateness effects of the Earth are to be included, set 
0BLATN = (ALF5) EARTH 

(13) Provision has been made to fly multistage vehicles with up to 

10 stages. At least one stage must be loaded. There are eight parameters for 
each stage with provision for input- controlled modifications of other variables. 
The 10 values of each parameter are stored in an array corresponding to the 
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10 stages. Input cards are as follows: 

TB — burning time for 1st stage, 2nd stage, etc. , sec 

FLOW = propellant flow rate for 1st stage, 2nd stage, etc., kg/sec 

SIMP = vacuum specific impulse of 1st stage, 2nd stage, etc. , sec 

O 

AREA a aerodynamic reference area of 1st stage, 2nd stage, etc. , m 

AEXTT » engine exit area for 1st stage, 2nd stage, etc., m 2 

RMASS = initial mass or jettison mass for 1st stage, 2nd stage, etc. , 
kg 

DELT a initial integration step size for 1st stage, 2nd stage, etc. , 
sec 

IDEM 1 = input identification number 1st stage, 2nd stage, etc. 

TB must be loaded for as many stages as are to be flown. Others may be omitted 
if zero is appropriate. If EMASS(i) is not positive, the i^ stage begins with 
the final mass of the previous stage reduced by the fixed amount EMASS(i). In 
the case of DELT, zero will result in use of TB/lOO. IDEHT of a nonzero value 
will cause any data cards of that identification number to be read in after the 
stage is set up and before integration begins. This permits the user to make 
almost any change desired. The order of data cards is discussed in instruc- 
tion (24). 

(14) The thrust orientation must be specified by setting 
BETA n angle (3, deg (see sketch (a) (p. 4)) 

COEFR (I) = angle-of-attack schedule, a = a(t) (see instruction (16)) 

ICC = fixed-point integer (see instruction (16)) 

For the special case of tangential thrust, none of the last three variables need 
be set. 

(15) If aerodynamic forces are present, set in addition to AREA in instruc- 
tion (13) : 

ATME = name of body that has atmosphere, in "ALF" format, (Earth) 

RATM s= radius above which atmospheric forces are not to be considered, 
m 

ROTATE = atmospheric-rotation rate, radians/sec ( 7. 29211585X10“^ for 
Earth) 

BETA = angle (3, deg (see sketch (a)) 
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COEFN (i) - angle-of-attack schedule, a - a(t), Cq/sin a, Cp^Q/ ant ^ 

./C? curves (see instruction (16)) 

D,l' L 

ICC = fixed-point integers (see instruction (16)) 


. (16) If neither thrust nor aerodynamic forces are present, skip to instruc- 
tion (18). The relations a(t), C^/sin a, Q , and C^ ^/cj? are assumed to be 

quadratic functions that involve coefficients, which are located in the COEFEf(J) 
array. The arrangement of these coefficients is best explained by an example. 
Suppose the function <x(t) is as follows: 


"f" a~i ot a-i rzt^ 


a 21 + a 22 t + a 23 t2 


(tq < t < tg) 
(tg < t < tj) 


a “ *S a 31 + a 32 t + a 33 t2 ( t 3 ^ ^ 


The coefficients aq^j should then be loaded into the COEFN(<T) array as: 
COEFE(j) ~ t l^ a ll^ a l2-’ a 13^ t 2- >a 21^ a 22- ,a 23 J,t 3- ,a 31- >a 32-’ a 33^ t 4-’ * * *J 


Furthermore, additional sets of coefficients for the other functions may simply 
be added to the COEFl(J) array, which results in a string of sets of coeffi- 
cients, and can be represented, for example, as: 

COEFKT(J) = a coefficients, Cq/sin a coefficients, Cp^p coefficients, etc. 

= t l' a ll-’ a 12> * * '•> t n-’%,l^ b ll^ b 12^ * * *-’% > k' etc * 

The starting point in the COEFE(J) array of each function must also be loaded to 
identify the correct region of coefficients. To this end, the following array 
must also be loaded: 

ICC(l) = fixed-point value of <T where a coefficients begin 

ICC (2) = fixed-point value of J where Cq/sin a coefficients begin 

ICC( 3) = fixed-point value of <1 where Cp^q/Cq coefficients begin 

ICC(4) as fixed-point value of <T where Cp^p coefficients begin 

For this purpose, all values in the COEFU(J) array are called coefficients (i.e. , 
the t’s and the Hjy/ s are coefficients). The sequence of the sets is arbi- 
trary, since changing the sequence requires only a change in the ICC(l) array. 
(See appendix I for Example II, the lunar orbiting probe, ) 
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(17) The size of the integration steps is determined primarily by the error 
control variables. These are loaded as: 

EREF = error reference value; 15 in appendix D 

ERLIMT = maximum value of 6 that is acceptable on any particular step 

EREF is always treated as a positive number; however, if it is loaded with a 
minus sign, this will cause error information to be printed at the completion of 
the problem. If no error control data is loaded, SUBROUTINE STRATA will set 
EREF = 1X10-6, ERLIMT = 3X10“ 6. 

(18) The output control offers a choice on the frequency of output data as 
follows ; 

If MODOUT =1, output will occur every n^* 1 step (n = STEPS) until 
t s* 1MIN, and then MODOUT is set equal to 2 by the program 

If MODOUT - 2 , output occurs at equal time intervals of DELMAX until 
t = TMAX 

If MODOUT t= 3, output occurs at equal time intervals of DELMAX until 
t = TMIN, then MODOUT is set equal to 4 by the program 

If MODOUT * 4, output occurs every n^ step (n » STEPS) until 
t = TMAX 

SIEPMX = maximum step limit before problem is completed 
DELMAX = time interval between outputs 
STEPS = number of steps between outputs 
TMIE s= time when MODOUT changes 

Note that output control may, at times, strongly influence the integration step 
size especially if MODOUT is 2 or 3 and DELMAX is small* STDATA will put 
MODOUT = 4 and STEPS = 1. 

Note that TMAX « time at start of a stage, plus the stage time, TB(NSTAGE) , and 
is computed internally. 

(19) Provision has been made to interrupt the integration procedure when an 
arbitrary value of an arbitrary parameter is attained. By interrupt it is meant 
that an output will occur at this point, input is permissible, and a decision is 
made whether to continue the stage, terminate the stage, or terminate the flight. 
Ship to instruction (20) if this facility is not desired. To cause an interrupt, 
set 
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LOOKX = COMMON C location of arbitrary parameter 
XLOOK = value of C (LOOKX) where an interrupt is desired 



INLOOK as input identification number for interrupt 


END = a negative number if flight should be terminated, zero if stage 
should continue, or a positive number if stage should be terminated 

If the interrupt is not desired the first time C(LOOKX) = XLOOK, set 

LOOKSW = COMMON C location of a second arbitrary parameter 

SWLOOK = value of C (LOOKSW), which must be equaled or exceeded before 
an interrupt may occur (interrupt occurs if C(LOOKX) = XLOOK and 
C (LOOKSW) > SWLOOK) 

Typically, time may be the second arbitrary parameter; thus, STDATA sets 
LOOKSW = 711, the COMMON location of time. INLOOK of a nonzero value will cause 
any data cards of that identification number to be read-in prior to the interro- 
gation of END. The order of the cards is discussed in instruction (24). 

(20) Provision has been made to save a block of initial conditions and pro- 
gram control parameters prior to the integration of the n^* 1 stage. This allows 
the flight to be flown again from the stage onward with prescribed altera- 
tions. Skip to instruction (2l) if this facility is not desired. To save the 
program control variable array, A, and the integration variable array, 

XPRIM + XPRIMB, just prior to integration of the n^* 1 stage, set 

NSAVE - the number of the n^* 1 stage 

The saved data, stored in the D array, will be returned to the A and 
XPRIM + XPKIMB arrays after the flight is completed if 

RECALL = any nonzero number 

It is intended that changes in the succeeding flight will be made at the main 
input station ($DATA=l). NSAVE and RECALL are not contained in the array A 
and are therefore unaffected by the save-recal l sequence. The correct sequence 
of these controls is not always simple and an understanding of the main program 
and input stationing is quite desirable, 

(21) If the standard set of data contained in the SDBROUTINE STDATA is not 
desired, set 

CLEAR = any nonzero number 

It is intended that this control shall be set nonzero by the $DATA * 99 input 
station at the beginning of the main program. It is not affected by the save- 
recall sequencing explained in instruction (20). 

(22) If the number of stages to be flown is not equal to the number of con- 
secutive nonzero flight times, TB, set 

LSTAGE = number of last stage to be flown 
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(23) "When a transfer of origin occurs,, provision has been made to read input 
into the program* This is done with the aid of $DATA *= 101, followed by the 
data statements desired. 

(24) The sequencing of the input cards is not always simple and no rigid 
rules may be written down. Inspection of the program may be necessary to answer 
some questions. However, in general, the first input cards belong to the 
$DATA sr 300 group if an ephemerides tape is required. This group is followed 
by the $DATA = 1 group, which consists of the main input for a single flight. 
Following this are the in-flight input cards, if any, which may be any combina- 
tion of $DATA = 101, $DATA = XNLQOK, or $DATA = IDEM (WSTAGE) groups. The 
order of these groups of cards matches the order of the time sequence of events 
in the flight itself. For multiple flights, sets of the above groups may be 
added in tandem. It is usually desirable in this case, however, to read all the 
$DATA 300 sets at the same time (as in instruction (3)) to avoid excessive 
tape handling. 

(25) Following is an input check list that may be helpful at execution time: 


INPUT CHECK LIST a 


Takeoff time 

Position and velocity 

(completely fill in one and only one block) 

Reference and perturbing bodies 

BODY CD = 

Rectangular 

Orbit elements 

Spherical 

Tape 

Elliptic 

DTOFFJ = 
TOPPT = 
TIME = 

X = 

Y = 

Z = 

VX = 

VY = 

VZ = 

IMODE = 2 

E = 

OMEGA = 
NODES = 
IN CL = 

MA = 

P = 

IMODE = 1 

LAT = 
LONG = 

AZI = 
ELEV = 

ALT = 

VEL = 
TKICK 
IMODE = 4 

" D TAPE 3 = 0 
t’TBEGIN = 
b TEND = 
^ELIST = 
TPILE = 

ELIPS = 

Output 

control 

Error 

control 

Restart 

feature 

Parameter 

search 

Atmosphere and 
coefficients 

Oblateness - 
rotation 

Stage 

data 

TMIN = 
MODOUT = 
STEPS = 
DELMAX = 
STEPMX = 

EREP = 
ERLIMT = 

NSAVE = 
RECALL = 
CLEAR = 

LOOKX = 
XLOOK = 
LOOKSW = 
SWLOOK = 
INLOOK = 
END = 

ATMN = 
RATM = 
COEFN = 
ICC = 
BETA = 

OBLATN = 
ROTATE = 

TB = 
FLOW = 
SIMP = 
AREA = 
DELT = 
RMASS = 
AEXIT = 
IDENT = 
LSTAGE = 


a The following standard, data are loaded by SUBROUTINE STDATA: 


DT0FFJ = 2440 000.0 
IM0DE = 1 

BODYCD(l) = (ALF5) EARTH 
RMASS(l) = 1.0 

^At input 300, setting TAPE 3 


M0D0UT = 4 
STEPS =1.0 
STEPMX = 100.0 
LOOKSW =711 


EREF = 1x10" 6 
ERLIMT = 3X10" 6 
TPILE =1.0 


0 is necessary to make an ephemeris tape. 
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APPENDIX H 


PROGRAM LISTING 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


THIS MAIN PROGRAM IS THE SUPERSTRUCTURE ABOVE ALL SUBPROGRAMS. 

SUBROUTINE TAPE CLEARS COMMON 1 THRU 4000 AND MAY CONSTRUCT AN 
EPHEMERIS TAPE, ALSO, IT ALWAYS SETS TAPE3 =0. SUBROUTINE ST DAT A 
LOADS A STANDARD SET OF DATA. IF RECALL DOES NOT EQUAL ZERO, A 
PREVIOUSLY SAVED SET OF DATA ( FROM STAGE) IS MOVED TO THE INITIAL 
DATA LOCATION. THE MAIN INPUT STATION IS STATEMENT 8( INPUT!) 

WHERE THE VEHICLE DATA FOR ALL STAGES MAY BE LOADED. SUBROUTINE ORDER IS 
CALLED TO ORDER THE LIST OF BODIES, DETERMINE THE GRAVITATIONAL CONSTANT, 
ORIGIN ROTATION RATE, ATMOSPHERIC RADIUS, RELOCATE ELLIPTIC EPHEMERIS DATA 
AND POSITION THE EPHEMERIS TAPE. 

COMMON C 


DIMENSION A ( 600 ) , 6(700), CI4000), 
1 TB(10), DU100) 


EQUIVALENCE 

1 ( A ,C 

2 ( D ,C 

3 ( NCASES , A 
41TB , A 


( 11) ) , (b ,C 
(2111) ),(LSTAGE,A 
1 600) ), (NSTAGE.A 
( 63) ) , ( TAPE3 ,C 


(1111) >, (CLEAR ,C ( 3)), 
( 38) ) , (NCASE ,C ( 1)), 
( 3) ), (RECALL, C ( 5)), 
( 2)), (TABLE ,C (1911)) 


1 CALL INPUT (99, C, TABLE) 

IF ( TAPES) 3,2,3 

2 CALL TAPE 

3 NCASE = NCASE + 1 

WRITE OUTPUT TAPE 6, 12, NCASE 

12 FORMAT! 12H1CASE NUMBER 13, 1H. ) 

IF (CLEAR) 5,4,5 

4 CALL STDATA 

5 IF (RECALL) 6,8,6 

6 DO 7 J=l,1100 

7 A ( J ) = D(J> 

WRITE OUTPUT TAPE 6, 16, NSTAGE, NCASES 

16 FORMAT ( 33H RECALLED INITIAL DATA FROM STAGEI2,8H OF CASEI4,IH.) 

8 CALL INPUT (1,C, TABLE) 

IF (SENSE SWITCH 6) 13,14 

13 WRITE QUTPUI TAPE 6,15 

15 FORMAT ( 19H0EXI T VIA SENSE SW6) 

CALL EXIT 

14 IF ( LSTAGE) 11,9,11 

9 DO 10 LSTAGE=1 ,10 

IF ( TB1LSTAGE+1) ) 10,11,10 

10 CONTINUE 
LSTAGE = 10 

11 CALL ORDER 

17 CALL STAGE 
GO TO l 
END 


SUBROUTINE AERO 

C SUBROUTINE AERO COMPUTES THE LIFT AND DRAG ACCELERATIONS. AS IN SUBROUT- 
C INE THRUST, THESE VECTORS ARE REFERENCED TO THE RELATIVE WIND VELOCITY. 

C COEFFICIENTS OF LIFT, INDUCED DRAG, AND DRAG AT ZERO ANGLE OF ATTACK ARE 

C ASSUMED TO BE FUNCTIONS OF MACH NUMBER AND ANGLE OF ATTACK. TABLES OF 

C CDI/CL**2, CL/SIN( ALPHA) , AND CDO ARE ASSUMED AS FITTED QUADRATIC EQUAT- 

C IONS IN THE COEFN ARRAY. GASFAC IS THE SQRTFt SPECI F IC HEAT RATIO * STAND- 

C ARD ACCELERATION OF GRAVITY * UNIVERSAL GAS CONSTANT). FOR EARTH, GASFAC= 

C 20.064881 (METERS / SEC**2 / KELVIN DEGREE ) **1/2 . 

C 

COMMON C 
C 

DIMENSION A ( 600 ) , B(700), C(4000), 

1 VATM ( 3 ) , P ( 3 ) , XIFTI3), DRAG! 3) , PAR(3), X(100) 

C 


EQUIVALENCE 


1 ( A ,C 

( ID), (ALPHA 

, A 

( 49)), (AREA 

B 

( 6) ) 

2(B ,C 

(HID), (BETA 

, A 

( 50)), (CD 

A 

( 165)) 

3 ( GDI , A 

( 163)), (CL 

.A 

( 164) ) , (COSALF, 

B 

( 48) ) 

4 { COSBET , B 

( 49 ) ) , { DNS ITY 

,6 

( 29)), (DRAG 

B 

( 69) ) 

5{ GASFAC, A 

( 46 ) ) , ( P 

,8 

( 84)), (PAR 

B 

( 60) ) 

6<PMAGN ,B 

( 50)), (Q 


( 59)), (R 

B 

( 102)) 

7 ( S INALF , B 

( 46) ) , ( SINBET 


( 47 ) ) , { TM 

B 

( 34) ) 

8 ( VATM ,8 

( 97)), (VMACH 


( 38) ) , ( VQ 

B 

( 100)) 

9 ( VQSQRD , 6 

< 101 ) ) , ( X 

,8 

( 401) ) , IXIFT 

B 

( 72) ) 


Q = 0. 5*DNSITY*VQSQRD 
QVAL = Q*AREA/X(2) 
VMACH=SQRTF( VQSQRD/TM)/ GASFAC 


C 

C COMPUTE THE X,Y,Z COMPONENTS OF LIFT. 
IF (ALPHA) 2,1,2 

1 CL * 0.0 
CDI^O.O 
GO TO 4 

2 CL = QUAD! VMACH»2)*SINALF 
AA * QVAL*CL/PMAGN 

A8 = SINBET/VQ 
DO 3 K= 1 » 3 

3 XIFT(K) = AA*(AB*PAR(K)+COSBET*P(K) ) 

7 COI=QUAD( VMACH, 3 ) *CL*CL 

C 

C COMPUTE THE X,Y,Z COMPONENTS OF DRAG. 

4 CD * CDI+QUAD( VMACH, 4) 

AC = -CD»QVAL/VQ 

DO 5 K=1 , 3 

5 DRAG ( K l = AC* VATM(K) 

6 RETURN 
END 



FUNCTION ARCTAN <Y,X) 

C THE FORTRAN II LIBRARY ATANF ( + OR - Z=TAN( THETA) ) USES A SINGLE 

C ARGUMENT WITH ITS SIGN TO GIVE THETA IN THE FIRST (+Z> OR FOURTH 

C (-2) QUADRANT. 

c 

C THE ARCTAN FUNCTION MAY BE USED IF + OR - Z IS DERIVED FROM A 

C FRACTION SO THAT ARCTAN <Y,X) = TAN-1 l ( +OR-Y=SIN! THETA) )/ ! +OR-X= 

C COSITHETAD). THUS THE ARCTAN !Y,X) GIVES THETA IN ITS PROPER 

C QUADRANT FROM -180 DEGREES TO 4-180 DEGREES. 

C 

IF (X) 2,1,2 

1 ARCTAN=S IGNF 1 1 . 57079632* Y) 

GO TO 4 

2 ARCTAN=ATANF( Y/X) 

IF ( X ) 3,1,4 

3 ARCTAN=ARCTAN+SIGNF! 3. 14159265, Y) 

4 RETURN 
END 


C 

C 

C 

C 

C 

c 

C 


C 


C 


THIS ROUTINE COMPUTES -- ID 
( 2 ) 

(3) 

(4) 

(5) 


SUBROUTINE CONVTl (V,AMC) 
ANGULAR MOMENTUM, AMC14) 

ANGULAR MOMENTUM SQUARED, AMC<5) 

X, Y, Z COMPONENTS OF ANG. MOM., AMC(J» 
VELOCITY, V(4) 

VELOCITY SQUARED, V(5> 


COMMON C 


DIMENSION A( 600 ) , B<700), CI4000), 
1 AMC ( 3) , V ( 5) , RBI 3) , INDI3) 


EQUIVALENCE 

1IA ,C I 1 1) > , ( B ,C (1111)), (IND ,A ( 60)), 

2 1 RB , B ( 193}) 


DO 1 J 1= 1, 3 
J2* I NO ( J 1 ) 

J3= INDI J2) 

I AMCIJ3) * Rt> ( J l ) *V( J2 )— RB t J2 ) * V ( J1 ) 
AMCI5) = AMC(1)**2+AMC(2)**2+AMC(3)««2 
AMCI4) = SQRTF ( AMCI 5) ) 

VI 5 ) = VI1)**2+V(2)**2+VI3)**2 
V( 4) = SQRTFI VI 5 ) ) 

RETURN 

END 


SUBROUTINE C0NVT2 

C THIS ROUTINE CONVERTS RECTANGULAR COORDINATES INTO ORBIT ELEMENTS. 

C RECTANGULAR COORDINATES- POSITION COMPONENTS, X, AND VELOCITY COMPONENTS, VX. 

C THE ORBIT ELEMENTS ARE IN THE ORBELS ARRAY- 

C 11) ECCENTRICITY (4) INCLINATION 

C (2) ARGUMENT OF PERICENTER 15) MEAN ANOMALY 

C (3) LONGITUDE OF ASCENDING NODE 16) SEMILATUS RECTUM 

C 

COMMON C 
C 

DIMENSION AI600), BI700), CI4000), 

1 AMCI 3) , 0RBELS16), RBI3) 

C 

EQUIVALENCE 


ha 

,C 

( ID), (AM 

,B 

( 90) ) , (AMSQRD.B 

( 91) ) , 

2! AMC 

, B 

( 87)), (6 

,c 

(1111) ),(COSTRU,B 

! 53)), 

3( EPAR 

, B 

( 26) ) , ( GK2M 

,B 

( 36) ), (ORBELS, B 

( 116)), 

4 ( R 

,B 

( 102) ) , ( RB 

, B 

( 193) ),(SINTRU,B 

( 52)), 

5! TRU 

, B 

( 40) ) , ( V 

,B 

( 95 ) ) , ( VSQRD , B 

! 96) >, 

6 ( VX 

,B 

( 92)), (VY 

, B 

( 93)), (VZ , B 

( 94) ) 


C 

ORBELS! 6 )=AMSQRD/GK2M 
R«SQRTFIRB(1)**2+RB(2)**2+RB(3)**2) 

TRU*ARCT AN (AM/GK2M*!RB(1)*VX+RB(2)*VY+R8(3)*VZ)» ORBELS ( 6 ) -R ) 

IF ( AMC ID) 2,1,2 

1 ORBELS! 3)*0. 

GO TO 3 

2 ORBELS ( 3 ) =ARCTAN (AMCI 1 ) ,-AMC (2 ) ) 

3 ORBELS! 4) =ARCTAN( SQRTFI AMCI 1)*«2+AMC( 2) **2), AMCI 3) ) 

SHCOE-S 1 NF { QRBEL S ( 3) ) 

CNODE=COSF( ORBELS! 3) ) 

AA=RB( 1 ) *CNUOE+RB( 2 ) *$NODE 

AB = RBI 3 )*S INF! ORBELS! 4) ) +COSFI 0RBELSI4) ) * I RBI 2) *CNODE-RB( 1)*SN0DE) 
ORBELS I 2 ) =ARCT.AN(AB, AA ) -TRU 

ORBELS! I )=SQRTF ( A8SF I l.+0RBELS(6)*( VSQR0/GK2M-2./R) ) ) 

EPONE=SQRTF( l.+ORBELSI 1) ) 

E2M1=1. -ORBELS! 1)**2 
EPAR=SQRTF( ABSFI E2M1) ) 

SINTRU=SINF( TRU) 

COSTRU*CQSF I TRU ) 

EPAS=SQRTF(ABSF( 1. -ORBELS! 1) ) > *S INTRU/ ( 1 . +COSTRU ) 

ETHETA=ORBELS( l)*SINTRU/( l.+ORBELS ( 1 ) »COSTRU ) *EPAR 

4 IFIE2M1) 5,6,6 

5 ORBELS! 5 )=LOGF( ( EPONE+EPAS) / I EPONE-EPAS) )-ETHETA 
GO TO 7 

6 ORBELS! 5 ) *2 . *ARC TANI EPAS , EPQNE ) -ETHETA 

7 RETURN 
END 
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t 


SUBROUTINE ERRORZ 

C THIS SUBROUTINE COMPUTES THE RELATIVE ERRORS BETWEEN THE R-K AND LQW-QROER 

C INTEGRATION SCHEMES# IT ALSO COMPUTES THE ERROR COEFFICIENT, A, AND SAVES 

C THE ERROR DATA WHEN EREF HAS A - SIGN. THE BRANCH ON IMODE DETERMINES 

C WHICH SET OF NORMALIZING FACTORS ARE TO BE USED. 

C 

COMMON C 
C 

DIMENSION A ( 600 ) , 8(700), C(4000>, 

1 RELERR (6), XPRIM (200), XINC (100) 


EQUIVALENCE 
1(A ,C 

( 11 ) ) , ( A1 

,B 

( 10 ) ) , i A2 , B 

( ID) 

2<B 

,c 

(1111)), (DELT 

»B 

( 1 ) ) , ( E2 ,8 

( 18) ) 

3(EREF 

, A 

( 13)),! IMODE 

, A 

( 1) ),( INDERR, B 

( 51) ) 

4 ( R 

t B 

( 102)), (STEPGO 

,A 

( 41) ), (STEPNO, A 

( 42) ) 

5( V 

, B 

( 95)), (XINC 

,B 

( 601) ), (XPRIM ,C 

< 711) ) 


EQUIVALENCE ( RELERR, X I NC ) 


E2 = 0# 

RELERR! 2 ) = X INC ( 2 ) /XPR IM( 2) 

IF l IMODE- 1 ) 2,1,2 
C 

C COMPUTE THE NORMALIZED INTEGRATION ERRORS FOR THE ORBIT ELEMENTS. 

1 RELERR! 3)*XINC(3)/(XPRIM(3)+1.)/10. 

RELERR! B)*X1NC!B)/XPRIM( 8) /10. 

DO 10 J= 1,4 

10 RELERR! J+3)=X INC! J+3)/ 62. 831853 
GO TO 3 
C 

C COMPUTE THE NORMALIZED INTEGRATION ERRORS IN RECTANGULAR VARIABLES. 

2 VI = V+100. 

DO 20 J=1 » 3 

RELERR! J+2)=X INC! J+2)/ VI 
20 RELERR! J+5 ) =X I NC ( J+5 ) /R 
C 

C SELECT MAXIMUM ERROR, COMPUTE ERROR COEFFICIENT, POSSIBLY SAVE ERROR DATA. 

3 DO 5 J*2,8 

IF ! ABSF(RELERR( J) )-E2) 5,5,4 

4 K=J 

E2 = ABSFIRELERR! J) ) 

5 CONTINUE 

E2 = E2 ♦ 2E-8 
A1 * A2 

A2 = LOGF! £2 )-5. *LOGF ! ABSF ! DELT > ) 

IF (EREF) 6,7,7 

6 WRITE TAPE 4, STEPGO, STEPNO, XPRIMll ) , DELT , A2 , 62, l RELERRt J ) , B=2» 8 ) , K 
INDERR * INDERR + 1 

7 RETURN 
END 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

e 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


SUBROUTINE EQUATE 

THIS SUBROUTINE IS CALLED FROM NBODY TO EVALUATE THE DERIVATIVES OF THE 
VARIABLES OF INTEGRATION. EITHER RECTANGULAR COORDINATES OR ORBIT ELE- 
MENTS MAY BE USED AS THE VARIABLES OF INTEGRATION, BUT IN THE CASE OF THE 
LATTER, THE CORRESPONDING RECTANGULAR COORDINATES MUST FIRST BE FOUND. 

THIS IS DONE AT THE BEGINNING THRU THE USE OF KEPLERS EQUATION. THE 
PERTURBATING ACCELERATIONS ARE FOUNO BY CALLING VARIOUS OTHER SUBROUTINES 
AND THEIR SUM RESOLVED ALONG THE X,Y,2 AXIS. FINALLY, THE DERIVATIVES 
ARE CALCULATED. IN THE CASE OF ORBIT ELEMENTS, THE X,Y,Z PERTURBATING 
ACCELERATION COMPONENTS MUST FIRST BE RESOLVED INTO CIRCUMFERENT I AL, RADI AL 
ANO NORMAL COMPONENTS. THIS ROUTINE ALSO CHANGES THE INTEGRATION VARI- 
ABLES FROM ORBIT ELEMENTS TO RECTANGULAR VARIABLES IF THE ECCENTRICITY 
APPROACHES UNITY. THE X, XPRIM, AND XDOT ARRAYS ARE AS FOLLOWS. 


X 


ORBIT ELEMENTS 


RECTANGULAR COORDINATES 


1 

2 

3 

4 

5 

6 

7 

8 


TIME 

MASS 

ECCENTRICITY 
ARGUMENT OF PER 1CENTER 
ARGUMENT OF ASC. NODE 
INCLINATION 
MEAN ANOMALY 
SEM1LATUS RECTUM 


TIME 

MASS 

X-VELOCITY 

Y-VELOCITY 

Z-VELOCITY 

X 

Y 

l 


COMMON C 


DIMENSION A! 600 ) , B(700), C( 40001, 


1 

XPRIM 

(100,2), 

VX 

(3), 

QX 

(3), 

2 

RB 

(3), 

NEFMRS 

(8), 

X 

(100) 

3 

XPR I MB 

(100,2), 

FORCE 

(3), 

XIFT 

(3), 

4 

DRAG 

( 3 ) , 

OBLAT 

(3), 

COMPA 

(3), 


5 XDOT 1100) 
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EQUIVALENCE 


1 1 A , C 

( 11) ) , ( AMSQRD, b 

( 91) ), (ASYMPT, A 

( 7) ) 

2 ( B ,C 

(1111)), ( BNAME ,8 

( 122)), (CINCL , 8 

( 55) ) 

3 ( C I RCUM, 8 

{ 82 ) ) , ( COMPA ,B 

( 63 ) ) , ( CONSTU, A 

( 32) ) 

4( COSTRU, B 

( 53 ) ) , ( COSV , B 

( 57)), (DRAG ,6 

l 69) ) 

5 ( EMONE ,B 

( 28) ) , ( EPAR , B 

( 26 ) ) , ( ETUL , A 

( 30) ) 

6( EXMODE, B 

( 27)), (FLOW ,B 

( 5) ) , (FORCE »B 

( 66) ) 

7 ( GK2M ,B 

( 36) ) , ( GKM , B 

( 37) ) , ( IMODE , A 

( 1) ) 

0 (KSU8 ,B 

( 191) , (MBOOYS, B 

( 42 ) ) , ( NEFMRS, B 

< 185)) 

9(NSTART,B 

( 24) ) , ( OBLATN, A 

( 40) ) , (OBLAT , B 

( 75) ) 

EQUIVALENCE 
UPRESS ,B 

( 33) ) , ( PUSHO ,B 

( 391)), (QX , B 

( 78) ) 

2 ( RADIAL , B 

( 81) ) , (RATMOSrB 

I 23)), (RB , B 

( 193)) 

3(R , B 

( 102)), (RSQRD ,8 

( 45)), (SINCL ,B 

( 54) ) 

4( SINTRU, B 

( 52 ) ) , ( S INV , B 

( 56 ) ) , ( SPD , A 

( 44) ) 

5 ( T A0LT ,8 

( 20) ) , ( TUFFT ,A 

( 24) ) , (TRSFER,B 

( 8) ) 

6( TTEST , A 

( 54)), (U , A 

( 59)), (V , B 

( 95) ) 

7 ( VSQRD , B 

( 96)), (VX , B 

{ 92)),(XOOr ,B 

( 501)) 

81XIFT ,B 

( 72) ) , ( XPR IM ,C 

( 711) ) , <XPRIM6,C 

( 911)) 

9 ( X ,6 

( 401) ) , (ZORMAL.B 

( 8 3 ) ) , l ZN ,B 

( 43) ) 


C 

TA6LT=X( 1J/SP0+T0FFT 
IMODE= IMODfc 

1 GO TO (2,16,16) , IMODE 
C 

C STATEMENTS 2 TO 16 FIND THE RECTANGULAR POSITION AND VELOCITY FROM ORBIT 

C ELEMENTS AND TRUE ANOMALY, THE TRUE ANOMALY IS FOUND FROM ITERATIVE 

C SOLUTION OF KEPLERS EQUATION. 

2 E2 = X ( 3 ) * *2 
E2M1 = 1.-E2 
EMONE = Xt 3 > — 1 « 

EPAR=SQRTF(ABSF( E2M1) ) 

VCIRCL=GKM/SQRTF(X(8) ) 

C 

C COMPUTE SINE AND COSINE OF TRUE ANOMALY. 

C PART A. E= 1 

3 IF (EMONE) 10,4,5 

4 SINTRU = 0. 

COSTRU = 1. 

GO TO 14 

C 

C PART 8. E IS GREATER THAN 1 

5 UO 7 J=l,100 

DELM = X(7)-U+X(3)*SINHF(U) 

ECOSU = X( 3) #COSHF(U> 

OELU = DELM/ ( l.O-ECOSU) 

U = U+DELU 

6 IF ( ABSFLOELMI-CONSTU) 9,9,7 

7 CONTINUE 
ASYMPT = 1.0 

IF (MBOOYS) 8,23,8 

8 CALL EPHMRS 
GO TO 23 

9 COSU = COSHF(U) 

DEMI = 1 ,-X ( 3 ) *COSU 
COSTRU = (CUSU-X(3) )/DEMl 
SINTRU =— EPAR*SINHF ( U) /DEM 1 
GO TO 14 

C 

C PART C. t IS LESS THAN 1 

10 00 12 J-1,15 

DELM = X( 7 )— U+X( 3) *$INF ( U) 

ECOSU = X( 3) *COSF( U) 

DELU = DELM/ ( L.O~fcCOSU+0.Ol*ECOSU**3 ) 

U = U+DELU 

LI IF ( ABSF(DELM)-CONSTU) 13,13,12 

12 CONTINUE 

HRITE OUTPUT TAPE 6, 55, U, OELU 
CALL EXIT 

13 COSU = COSF(U) 

OEM L ■= 1,— X( 3) *COSU 
COSTRU = ( COSU— X ( 3 ) ) /DEMI 
SINTRU = EPAR»$ INF (U)/ DEMI 

14 POVR - l.+X(3)*C0STRU 
C 

C COMPUTE POSITION AND VELOCITY FROM ORBIT ELEMENTS AND TRUE ANOMALY. 

C ALSO, CLEAR THE PERTURBAT ING ACCELERATIONS. 

15 SOMEGA = SINF( X< 4) ) 

COMEGA = COSF ( X( 4) ) 

SNODE * SINE ( X ( 5 ) ) 

CNOOE = C0SF(X(5>> 

SINCL = SINF(X(6) ) 

CINCL = COSF ( X( 6 ) ) 

S I NV=S I NTRU»CUMEGA+COSTRU* SOMEGA 

COSV=COSTRU*COMEGA-SINTRU*SOMEGA 

AR=COSV*CNOUE-S I NV*SNOD£*C INCL 

B1=S INV*CNOu£ + COSV*SNOOE«C INCL 

C 1 =COSV* SNODE +S INV»CNQOE*CINCL 

D1 = S I NV* SNUUE-COS V*CNODE*C INCL 

El = X( 3 ) *SUMEGA«-S INV 

FI * X(3)»CDMEGA+C0SV 

AS=6 I*CN0DE + F 1* SNODE»C INCL 

B2=F1#CNODE*CINCL-EI*SNODE 

R = Xl 8 ) /PDvR 

RSQRD = R*R 

SINVY=SINV*bINCL 

RB ( I ) = R*AR 

RB ( 2 ) = R*C L 

RB ( 3 ) = R*S I NVY 

VX(l)=-VCIRCL*AS 

VX(2)=VCIRCL*B2 

VX(3)=VCIRCL*F1*SINCL 

GO TO 18 
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c 

16 DO 17 K=1 , 3 
VX(K) = X(K*2) 

17 RB(K) = X(K + 5) 

RSQRD = RBm*RBm + RB(2)»RBI2) ♦ RB(3)*RB(3) 

R=$QRTF ( RSQRD) 

18 VSQRD=VX(1)*VX( 1 ) +VX{ 2 ) *VX< 2 ) +VX ( 3) * VX I 3 > 

V = SQRTF(VSQRD) 

DO 19 1=1,15 

19 FORC£( 1) = 0. 

C 

C TEST FOR PRESENCE OF PERTURBING BODIES. 

IF (MBODYS) 20,21,20 

20 CALL EPHMRS 

21 IF ( XABSFI IMOOE)-l) 26,22,26 
C 

C TEST FOR CHANGE FROM ORBIT ELEMENTS TO TEMPORARY RECTANGULAR 

C COORDINATES IF E IS TOO NEAR TO UNITY. 

22 IF (ETOL-ABSF(EMONE) ) 26,23,23 

23 IF ( IMODE ) 54,24,24 

24 IM0DE=-3 

IF ( NSTART ) 25,54,25 

25 TTEST = X(1J 
27 CALL TESTTR 

C 

C TEST FOR OBLATENESS PERTURBATION COMPUTATION. 

26 I F ( OBL A TN— BNAME >30,29,30 

29 CALL OBLATE 

C 

C TEST FOR PRESENCE OF THRUST. 

30 XD0TI2) * -FLOW 

IF (R-RATMOS) 31,31,32 

31 CALL ICAO 
GO TO 33 

32 PRESS=0, 

33 IF (PUSHO) 37,36,37 

36 ASSIGN 40 TO NDONE 
GO TO 38 

37 CALL THRUST 
ASSIGN 41 TO NDONE 

C 

C TEST FOR EXISTENCE OF ATMOSPHERE. FIND AERODYNAMIC FORCES. 

38 IF (PRESS ) 39,42,39 

39 GO TO NDONE, (40,41) 

40 CALL THRUST 

41 CALL AERO 
C 

C SUM COMPONENTS OF THE PERTURBING ACCELERATION. 

42 DO 43 J=l, 3 

43 COMPA(J) = -QX( J ) +OBLATI J) +FORCE (J)+XIFT{J) + DRAG ( J ) 

44 GO TO (47, 45, 45), IMODE 
C 

C COMPUTE DERIVATIVES FOR THE RECTANGULAR VARIABLES OF INTEGRATION. 

45 AA » GK2M/R/RSQRD 
DO 46 K=1 , 3 

XDQT ( K + 5 ) = X ( K+2 ) 

46 XDOT ( K+2 ) = COMPA( K)-AA*X( K+5) 

GO TO 54 

C 

C COMPUTE THE DERIVATIVES OF THE ORBIT ELEMENTS. (AFTER RESOLVING 

C PERTURBATING ACCELERATION INTO CIRCUMFERENTIAL, RADIAL, NORMAL COMPONENTS) 

47 CIRCUM=COMPA ( 3)*C0SV*SINCL— COMPAt 1 ) *B1-C0MPA ( 2 ) *D1 
RADI AL=CGMPA ( l ) » AR+COMPA ( 2 ) *C1+C0MPA ( 3 ) *S INVY 
ZORMAL=COMPA< 1 ) »SNODE»S I NCL-COMPA { 2 ) *CNODE*S INCL+COMPA ( 3 ) *C INCL 
ZN=VCIRCL*E2M1*EPAR/X( 8) 

RDVPP1 = l./PDVR + l. 

RDVA = E2MI/PDVR 

XDOT ( 8 ) = 2. *R/VCIRCL»C IRCUM 

IF ( X( 3 ) ) 48,48,49 

48 CSQRD = C IRCUM*CI RCUM 
RASQRD = RAO I AL*RADI AL 

DEMI = ( 4. *CSQRD+RASQRD ) *VC IRCL 
C 

C TEST FOR IN-PLANE PERTURBATION. 

IF (DEMI) 57,56,57 

56 XDOT ( 3 ) = 0. 

XDOT ( 4 ) = 0. 

XDOT ( 7 ) = 0. 

GO TO 50 

57 V0V2R= VC IRCL/R/2. 

XDOT (3) = SQRTF ( 4. *CSQRO+RASQRD) /VCIRCL 
XDOT ( 4 ) = VDV2R+(2.*CSQRD+RASQR0)/DEMi*RADIAL 
XDOT (7) = ZN-VDV2R+(6.*CSQRD+RASQR0)/DEM1*RADIAL 
GO TO 50 

49 XDOT ( 3 ) = (SINTRU*RADIAL+( PDVR-RDVA > /X ( 3 ) *CIRCUM ) / VC IRCL 
XDOT (4)=(SINTRU/X(3) *R0VPP1*C IRCUM-COSTRU*RADI AL/X{ 3) )/ VC IRCL 
XDOT (7)=ZN+EPAR/VCIRCL*( (COSTRU/ X( 3) -2. /POVR ) *RADI AL- ( S INTRU/X ( 3 ) * 

1RDVPP 1»CIRCUM) ) 

50 IF(SINCL) 51,52,51 

51 XDOT ( 5 ) = SINV/S INCL*ZORMAL/ VC IRCL/PDVR 
GO TO 53 

52 XDOT ( 5 ) * o. 

53 XDOT ( 6 ) * COSV*ZORMAL/PDVR/VCIRCL 

54 RETURN 

55 FORMAT ( 41H0KEPLERS EQUATION CONVERGENCE FAILURE, U=G15.8,7H DELU= 

1G15.8) 

END 
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c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 


c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 


B 


c 

c 


G 

c 

c 

c 


c 

c 


c 

c 

c 


c 

c 

c 


SUBROUTINE EPHMRS 

SUBROUTINE EPHMRS IS CALLED TO COMPUTE THE POSITIONS OF THE PERTURBING 
BODIES RELATIVE TO THE VEHICLE AND, FROM THESE, THEIR PERTURBING ACCELERA- 
TIONS UPON THE VEHICLE. OCCASIONALLY THIS ROUTINE IS CALLED FOR THE PURPOSE 
OF TRANSLATING THE ORIGIN IN WHICH CASE (TRSFER-1) THE RELATIVE VELOCITIES 
ARE ALSO CALCULATED. IF A BODYS POSITION IS TO BE COMPUTED FROM AN ELLIPTIC 
APPROXIMATION SUBROUTINE ELIPSE IS CALLED. OTHERWISE, THE POSITION WILL BE 
CALCULATED IN EPHMRS FROM THE PRECISION TAPE EPHEMER IS. THE DO 19 LOOP 
ENCOMPASSES ALMOST THE ENTIRE EPHMRS SUBROUTINE AND , IN EFFECT, ELIPSE TOO. 

COMMON C 


DIMENSION AI600J, B(700), C(4000), 

1 QX13), IBODYI8), EFMRSI 7) , XP(3,8), RB!3,8), R (8), TIM17), 

2 NEFMRSt 8) , TDATA ( 6,3,7), TDELI7), BMASS(8), VEFM(3,8), DATA! 21) 

3 , TOAT ( 18,7) 


EQUIVALENCE 
1 (A ,C 

2 ( BMASS ,B 
3 ( I BODY , B 
4tQX ,B 

5ISQRDK ,8 
6< TDATA ,B 


( 1 L ) ) , ( AU , A 

l 137) ), lOTOFFJ.A 
( 177) ), C MBODYS, 0 
( 78)), (R , B 

( 35) ) , I SPD , A 

( 265) ) , (TDEL ,B 
( 8 ) ) » ( VEFM , B 


EQUIVALENCE (IBF.FIB), (TDAT, TDATA) 


29)), (8 ,C 

23) ) , ( EFMRS ,8 
42 ) ) , ( NEFMRS, B 
102)), (RB , B 
44 > ) » ( TA8LT ,8 
170 ) ) » l T IM ,B 
241)), (XP i 8 


( inn ) 
( 130)) 
I 185)) 
( 193)) 
( 20 ) ) 
( 163)) 
( 217)) 


PART 2. SET INOEXS, FIND POSITION IF ELLIPSE IS USED (NEFMRS = 20 OR UP). 

DO 19 J6=l, MBODYS 

JB1 = J8+1 

IBF = IB0DYUB1I 

IB = XABSFl 10F) 

IF (NEFMRSt JB)-20) 2,2,1 
1 CALL ELIPSE (JB1) 

IF ITRSFER) 12,12,17 


PART 3. TAPE EPHEMERIS IS TO BE USED. FIND DIFFERENCE <DT» BETWEEN 
CURRENT PROBLEM TIME ( DT0FFJ+TA8LT ) ANO MIDPOINT TIME (TIM) OF CURRENTLY 
STORED TAPE DATA. THEN SEE IF CURRENT DATA IS OKAY. TDEL * TIME INTERVAL 
ON EITHER SIDE OF TIM FOR WHICH CURRENT OATA IS GOOD. 

2 DT = TABL T - (TIM(JB) -DTOFFJ ) 

IF ( ABSF ( DTJ-TDEL ( J8 ) ) 10,10,3 


PART 4A. CURRENT DATA NOT OKAY. READ IN NEXT DATA SET. IF DT IS -, 

BACK UP THE TAPE 2 RECORDS BEFORE READING. 

3 IF (DT) 4,5,5 

4 BACKSPACE 3 
BACKSPACE 3 

5 READ TAPE 3, l DATA ( 1 ) , 1=1,21) 

PART 4B. IF THIS DATA IS FOR A BODY IN THE BNAME LIST, STORE IT. 

(IF NOT STORED, WE MIGHT HAVE TO RETURN FOR IT.) IF ELLIPSE DATA IS 
PROVIDED FOR THE BODY FOUND, BY-PASS THE TAPE DATA AND READ IN NEXT SET. 

DO 7 J = 1, MBODYS 

IF ( (DATA(1)+EFMRS(J))*(-(DATA(1)*EFMRSU)))) 7,6,7 

6 IF (NEFMRSt J)-20) 8,8,3 

7 CONTINUE 
GO TO 3 

PART 4C. MOVE THE OATA INTO PLACE AND THEN GO BACK AND SEE IF IT IS OKAY. 

8 TIM(J) = DATAt 2) 

TDEL(J) = DATA(3) 

DO 9 JJ=1,18 

TDAT ( JJ, J) = QATAWJ+3) 

,9 CONTINUE 
GO TO 2 


PART 5. CURRENT DATA IS OKAY. GET POSITION FROM THE POLONOMIAL 
p = A + BX + CX**2 ♦ DX**3 + EX**4 ♦ FX**5. 

10 DO 11 K= 1 » 3 

XPlK.JBl) = TDATAl 1 ,K, JB) 

DO 11 KT = 2 » 6 

XP ( K , JB1 ) = XP ( K , JB1 ) * DT +TDATA ( KT, K, JB ) 

11 CONTINUE 

IF ( TRSFER ) 12,12,15 

PART 6. COMPUTE DISTANCE FROM REFERENCE AND FROM ROCKET . 

12 DO 13 K-1,3 

XP (K, JB1 ) = XP ( K, IB) +XP(K,JBl)*SIGNF(AU,FIB> 

13 RB ( K, JB1 ) = RB ( K, 1 ) - XP(K,JB1) 

PART 7. COMPUTE PERTURBING ACCELERATIONS (QX). 4194304=2**2 2 IS REMOVED 

TO PREVENT OVERFLOW. 2048=2**11 AND 8589934592=2**33 RESTORE THE SCALE. 
PRSQRD = ( RB ( 1 , JB1 ) **2 + RB(2,JB1)**2 + RB( 3, JB1 ) * *2 ) /4 194304. 

RRELL = SQRTF(PRSQRD) 

RSQRD = ( XP ( 1 , J81 ) **2 ♦ XP( 2 , JB 1 ) **2 + XP(3, JB1 ) »*2)/4194304. 

RCUBE = RSQRD * SQRTF ( R SQRD) 

PRCUBE = PRSQRD * RRELL 
R(JBl) = RRELL*2048. 

DO 14 K= 1 , 3 

14 QX(K)=SQRDK » 8MASSU8L1 * (( XP (K, JB1) /RCUBE ) + RB( K, JB1 ) /PRCUBE )/ 

1 8589934592. + QX(K) 

GO TO 19 

PART 8. COMPUTE VELOCITY FROM V = B ♦ 2CX + 3DX**2 + 4EX**3 + 5FX**4 
AND FROM REFERENCE BODY VELOCITY ( VEFM (IB)). 

15 DO 16 K=l» 3 
VEFM(K, JB1) » 0. 

DO 16 KT=1 » 5 

16 VEFM ( K, JB1 ) = (VEFM(K, J8 1 ) *DT+TDATA ( KT ,K, JB > *FLOATF ( -KT+6 ) > 

17 DO 18 K=l, 3 

18 VEFM( K, JB1 ) = VEFM( K, IB ) ♦ VEFM( K, JB1 ) *S IGNF ( AU/ SPD, F I B ) 

GO TO 12 

19 CONTINUE 
RETURN 
END 
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SUBROUTINE EXTRA 


C 

C THIS ROUTINE IS EXECUTED BETWEEN FLIGHTS AND MAY THEREFORE BE EXPANDED TO 
C DO ADDITIONAL COMPUTATION BETWEEN SUCCESSIVE FLIGHTS. 

C 

COMMON C 
C 

DIMENSION A ( 600 ) » 6(700), C(4000) 

C 

EQUIVALENCE 

1IA ,C ( 11)), (B ,C (1111) ),(QMAX , B ( 44)), 

2( SIGNAL, B ( 31)) 

C 

SIGNAL * 0. 

QMAX = 0. 

RETURN 

END 


SUBROUTINE EXTRAS 

C THIS ROUTINE IS EXECUTED BETWEEN STAGES AND MAY THEREFORE BE EXPANDED TO 

C DO CALCULATIONS BETWEEN SUCCESSIVE STAGES OF A FLIGHT. 

C 

RETURN 

END 


C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


c 

c 

c 


c 

c 


SUBROUTINE ELIPSE U81) 

THIS SUBROUTINE IS CALLED FROM EPHMRS TO COMPUTE THE POSITION OF A BODY 
USING APPROXIMATE ELLIPTIC DATA. THE VELOCITY IS ALSO COMPUTED IF THE 
ORIGIN IS 8EING TRANSLATED ( TRSFER= 1 . 0) . THE ELLIPSE DATA IS READ FROM 
INPUT CARDS AND ORGANIZED IN SUBROUTINE ORDER. TPD IS TIME SINCE PERIHELION 
PASSAGE, ZM IS MEAN ANOMALY, U IS ECCENTRIC ANOMALY. 

TDATA ARRAY - IK') SEMILATUS RECTUM (K+7) PERIOD 

(K+l) ECCENTRICITY (K+8) SIN OMEGA 

(K+2) OMEGA ( K + 9 ) SIN NODE 

(K+3) NODE (K+10) SIN INCLINATION 

(K+4) INCLINATION (K+ll) COS OMEGA 

(K+5) JD OF PERIHELION (K+12) COS NODE 

(K+6) FRACTIONAL PART OF (K+5) (K+13) COS INCLINATION 

COMMON C 


DIMENSION A( 600 ) , B{700), C(4000), 
l XP ( 3, 8 ) , VEFM ( 3,8), T0ATA(121) 


EQUIVALENCE 
1 ( A ,C 

( 1 1 ) ) , ( B 

,C 

(1111)), (CONSU 

» A 

( 31) ) 

2(DT0FFJ, A 

( 23 ) ) , ( TABLT 

,B 

( 20)), (TDATA 

,B 

( 265)) 

3(TRSFER,B 

( 8)), (VEFM 

,B 

( 241)), (XP 

»B 

( 217)) 


K = 18*( JBl-2) +1 

TPD = ( DTOFFJ— TDATA ( K+5) )+(TABLT-TDATA(K+6) ) 

ZN = 6.28318533/TDATA(K+7) 

ZM = ZN*MODF ( TPD, TDATA ( K+7 ) ) 

GET THE SINE(SINTRU) AND THE COSINE (COSTRU) OF THE TRUE ANOMALY 
8Y ITERATING KEPLERS EQUATION. THEN COMPUTE X,Y,Z (XP). 

U = ZM+ TDATA (K+1)*SINF(ZM)+.5*TDATA(K+1) **2*SINF ( 2 . +ZM ) 

00 1 J=l,10 

DELM = ZM-U+TOATA ( K+1)*SINF(U) 

DELU a DELM/ ( 1 .-TDATA( K+l ) *COSF ( U) ) 

U = U+DELU 

IF (ABSF(DELM)-CONSU) 2,2,1 

1 CONTINUE 

2 COSU - COSF(U) 

DENOM » l.-TDATA<K+l)*COSU 
COSTRU = (COSU— TDATA(K+i) )/DENOM 
R = TDATA(K)/( 1. +TDATA ( K+l ) +COSTRU) 

SINTRU * SQRTF ( l.-TDATA(K+l)**2)*SINF(U) /DENOM 
SINV = S INTRU*TDATA( K + ll) +CQSTRU*TDATA( K+8) 

COSV = COSTRU* TDATA ( K+il )-SI NTRU+T DATA ( K+8 ) 

XP ( 1 , JB1 ) = R* ( COSV*TDATA ( K+12 )-SINV*TOATA ( K+9)*TDATAlK+13) ) 

XP ( 2 , J81 ) = R*(C0SV*TDATA(K + 9) +S IN V* TDATA ( K+12 ) * TDATA ( K+13 ) ) 

XP ( 3 , JB1 ) = R*SINV*TDATA(K+10) 

IF (TRSFER) 3,4,3 

COMPUTE THE VELOCITIES FOR THE TRSFER OF ORIGIN. 

3 EX = TDATA ( K+l )* TDATA! K+8I+SINV 
FX = TDATA ( K+1)*T0ATA(K+11 )+COSV 

CFACT = ZN*TDATA(K)/(SQRTF((1,-TDATA(K+1)**2)**3)) 

AX = E X* TDATA ( K+12 ) +FX*TDATA ( K+9 ) *TDATA( K+13 ) 

BX = FX*TDATA(K+l2)*TDATA(K+13)-EX*TDATA(K+9) 

VEFM ( 1 , JB1 ) = — AX*CFACT 

VEFM ( 2 , JB1 ) = 8X*CFACT 

VE FM ( 3 , JB1 ) = FX*CFACT*TDATA(K+10) 

4 RETURN 
END 


53 



REM SUBROUTINE EXADD (A,B,C) 

REM THIS ROUTINE WILL ADD IN DOUBLE PRECISION A QUANTITY C TO THE DOUBLE 
REM PRECISION VARIABLE A+B WHERE A IS THE MOST SIGNIFICANT PART AND B IS 
REM THE LEAST SIGNIFICANT PART, 



ENTRY 

EXADD 


COMMON 

-206 

Q1 

COMMON 

1 

Q2 

COMMON 

1 

TEMPI 

COMMON 

1 

TEMP2 

COMMON 

HTR 

1 


BCI 

1 , EXA( 


SXD 

*-4,1 


SXD 

*-4,2 

EXADD 

SXD 

*-4,4 


CLA* 

1,4 


FAD* 

3,4 


STQ 

Q1 


FAD* 

2,4 


STQ 

Q2 


FAD 

Q1 


STQ 

Q1 


STO 

TEMPI 


CLA 

Q1 


FAO 

Q2 


STO 

TEMP2 


FAD 

TEMP2 


FAO 

TEMPI 


STQ 

Q1 


FSB 

TEMP2 


STO* 

1,4 


STQ 

Q2 


CLA 

Q1 


FAD 

Q2 


STO* 

2,4 


TRA 

END 

4,4 


SUBROUTINE ICAO 

C SUBROUTINE ICAO DETERMINES THE ATMOSPHERIC TEMPERATURE, PRESSURE, AND 
C DENSITY AS A FUNCTION OF ALTITUDE ABOVE THE EARTH IN ACCORDANCE WITH 

C THE 1962 U.S. STANDARD ATMOSPHERE (ICAO TO 20 KM.), A SHORT FAP 

C PROGRAM FOLLOWS ICAO WHICH PROVIDES A MEANS OF LOADING DATA INTO MACHINE. 

C IT MUST BE LQAOED OIRECTLY AFTER ICAO. IF THE LENGTH OF ICAO IS CHANGED, 

C THE OATA MUST BE RELOCATED. 

C 

C R IS 0 1 STANCE TO CENTER OF EARTH IN METERS. 

C ALT IS VEHICLE ALTITUDE ABOVE EARTH IN METERS. 

C TABLE H IS METERS OF ALTITUDE FROM THE EARTHS SURFACE ANO IS 

C THE ARGUMENT OF ATMOSPHERE PROPERTY TABLE. 

C ALM IS THE MEAN SLOPE OF THE TABLE H VS. TM CURVE AT TABLE H. 

C TMR IS TM AT TABLE H. 

C REF P IS THE PRESSURE IN MILLIBARS AT TABLE H. 

C TM IS THE TEMPERATURE TIMES STD. MOLECULAR WEIGHT / ACTUAL 

C MOLECULAR HEIGHT. DEGREES KELVIN. 

C PRESS IS PRESSURE IN MILLIBARS. 

C DNSITY IS DENSITY IN KILOGRAMS PER CUBIC METER. 

C HEIGHT IS EITHER GEOPOTENTIAL ALTITUDE OR GEOMETRIC ALTITUDE IN METERS. 

C 

COMMON C 
C 

DIMENSION A ( 600 ) , B1700), C(4000), 

1 TABLEHC 23 ) , TMRI23), REFP(23), ALM123) , RB(3) 

C 

EQUIVALENCE 

1 ( A ,C ( 111), (ALT , A ( 4)),<B ,C (U1U), 

2 ( DNSITY, B ( 29)), ( OBLATN, A l 40)), 

3 ( PRESS , B ( 33)), (R »B ( 102)), CRB ,B ( 193)), 

4 ( RE , A < 25) ) , ( T ABLT ,B ( 20)), (TM ,B ( 34)), 

5 (RESQRD, B ( 7)) 

EQUIVALENCE ( TABLEHt 24) ,TMR) , ( TABLEH( 47) , ALM ) , ( TABLEHJ 70) , REFP) 

C 

IF (OBLATN) 102,101,102 

101 ALT = R - RE 
GO TO 103 

102 ALT = R— 63 5678 3.28/ SQRTFC . 9933065 783+. 00669342 1685 ( RB( 3) /R) *»2 ) 

103 IF (ALT-90000.) 105,104,104 

104 HEIGHT = ALT 
GO TO 106 

105 HEIGHT = ALT/( 1.0+ ALT/6356766.) 

106 K=K 
C 

C FIND THE HEIGHT IN A TABLE OF BASE DATA. DATA ARE 

C ARRANGED IN DECENDING ALT WITH 21 REGIONS. ABOVE THAT, PRESSURE AND 

C DENSITY ARE SET = 0. TEMPERATURE IS SET TO 3000. 

1 IF ( K-22) 2,6,6 

2 IF (HEIGHT-TABLEH(KFl) ) 5,3,3 

3 K = K+l 
GO TO 1 

4 K «= K-l 

5 IF (K) 7,7,6 

6 HINC = HEIGHT - TABLEH(K) 

IF (H INC) 4,8,8 

7 K = 1 

8 IF (ALM(K)) 9,100,9 
C 
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C CONTROL COMES HERE FOR NON ISOTHERMAL LAYERS 

9 TH = TMR(K) + ALM(K)*H INC 
IF (ALT-90000.) 107,107,108 

107 PRESS * REFP(K)*(TMR(K)/TM)**(.0341631947/ALM(K) ) 

GO TO 10 

108 IF (K-KC) 109,110,109 

109 KC = K 

Cl = RE+TA8LEHIK) 

C2 = TMR(K)/ALM( K) 

C3 = 1#/ ( C1-C2 ) 

C4 = -.0341631947*RESQRD*C3/ALM(K) 

110 PRESS * REFP(K)*EXPF(C4*( C3*L0GF (Cl»(HINC/C2+l.)/( RE+HE IGHT ) ) - 

1 HINC/C1/(RE+HEIGHT) ) > 

10 0NS1TY * PRESS/TM/2. 87053072 
GO TO 13 

C 

C CONTROL COMES HERE FOR ISOTHERMAL LAYERS 

100 IF ( K-22 ) 11,12,12 

11 TM = TMR(K) 

PRESS '* REFP (K) *EXPF (-.03416 31947* HI N.C/TMR1 K ) I 
GO TO 10 
C 

C CONTROL COMES HERE FOR EXTREME ALTITUDES 

12 PRESS = 0.0 
DNS I TY = 0.0 
TM = 3000. 

13 RETURN 
END 

REM THIS IS THE FAP PROGRAM WHICH LOADS ICAO DATA INTO MACHINE. 

REM THE 256 IN QRG 256 WAS FOUND BY SUBTRACTING 22 FROM THE DEC LOCATION 
REM OF REF P (FROM FAP LISTING OF ICAO, THIS WAS FOUND TO BE 278). 

REM THUS, 278-22*256. DISCARD THE FIRST TWO BINARY CARDS AFTER ASSEMBLY 
REM AND PLACE REMAINING CARDS IMMEDIATELY BEHIND ICAO BINARY DECK. 

REM 

REM A 1 IS REF P(23) 

REM A2 IS ALM ( 23) 

REM A3 IS T MR ( 23) 

REM A4 IS TABLE HI23) 

REM 

ORG 256 

A1 OEC 0., 1.1918E-9,3.4502E-9, l.0957E-8,4.0304E-8, 1.8838E-7 

DEC 6.9604E-7 , 1 . 6852E-6 , 2. 7926E-6 , 3. 6943E-6 » 5.06 1 7E-6 ,2.5217E-5 
OEC 7 . 3544E-5 , 3 • 0075 E— 4 , 1 .6438E-3, .010377,* 182099, . 590005 
OEC 1.10905,8.68014,54.7487,226.320, 1013.25 
A2 DEC 0.,0., .00 11,. 00 17,. 0026,. 0033,. 004,. 005,. 007,. 01,. 01 5,. 02,. 01 
DEC .005,. 003,0. ,-.004, -.002,0.,. 0028,. 00 1,0., -.0065 
A3 DEC 0., 2700. 65, 2590. 65, 2420. 65, 2160. 65, 1830. 65, 1550.65, 1350.65 
DEC 1210.65,1110.65,960.65,360.65,260.65,210.65,180.65,180.65 
DEC 252.65,270.65,270.65,228.65,216.65,216.65,288.15 
A 4 OEC lE30,7fc5,6E5,5E5,4E5,3E5,2.3E5,1.9E5,1.7E5, 1.6E5, 1.5E5, 1.2E5 

DEC 1.1E5, 1E5, .9E5, 79000., 6 1000., 52000. ,47000., 32000., 20000. 

DEC 11000. ,0. 

END 1 

SUBROUTINE NBODY 
C 

C NBODY COMPUTES THE TRAJECTORY IN EITHER ORBIT ELEMENTS OR RECTANGULAR 
C COORDINATES USING THE RUNGE-KUTTA TECHNIQUE. A LOWER ORDER INTEGRATION 

C TECHNIQUE IS ALSO PERFORMED TO FACILITATE AUTOMATIC STEP SIZE CONTROL. 

C THE X,XPRIM» XDOT ,XINC,ETC. ARRAYS ARE AS FOLLOWS. 

C 

C X ORBIT ELEMENTS RECTANGULAR COORDINATES 

C 

C 1 TIME TIME 

C 2 MASS MASS 

C 3 ECCENTRICITY X-VELOCITY 

C 4 ARGUMENT OF PERICENTER Y-VELOCITY 

C 5 ARGUMENT OF ASC. NODE Z-VELOCITY 

C 6 INCLINATION X 

C 7 MEAN ANOMALY Y 

C 8 SEMILATUS RECTUM Z 

C 

C IMOOE VARIABLES 

C I ORBIT ELEMENTS 

C 2 RECTANGULAR 

C 3 RECTANGULAR TEMPORARY 

C 4 EARTH SPHERICAL — CHANGE TO RECTANGULAR 

C -1 ORBIT ELEMENTS— CHANGE TO RECTANGULAR 

C -2 RECTANGULAR— CHANGE TO ORBIT ELEMENTS 

C -3 ORBIT ELEMENTS — CHANGE TO TEMPORARY RECTANGULAR 

C -4 EARTH SPHERICAL — CHANGE TO ORBIT ELEMENTS 

C 

COMMON C 
C 

DIMENSION A ( 600 ) , B(700), C(4000), 

1 XPRIM (100,2), XPRIMB (100,2), XDOTPM (100,2), 

2 X (100), XINC (100), OLDINC (100), 

3 XDOT (100), RB (3), XK (100), 

4 AMC (3), AK (3), AW (4), 

5 XWHQLE (6), VX (3), BEX (14) 

C 
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EQUIVALENCE 


1 1 A ,C 

I 11 ) ) , I A1 , B 

I 10)), (A2 , B 

( 11) ) 

2 IAC0EF1 , B 

I 12)) , 1 AC0EF2,B 

I 13 ) ) , I AC0EF3, B 

I 14)) 

3 I AK , A 

I 5 1 ) ) , I AMC , B 

I 87 ) ) , I AMSQRD, B 

I 91) ) 

4 1 AM ,6 

I 90) ) , I ASYMPT.A 

I 7)), (AW , A 

I 55) ) 

5IB ,C 

(1111)), (CGNSTU,A 

I 32)), (DELT , B 

I 1) ) 

6 1 DONE ,B 

I 39)), (E2 ,B 

I 18 ) ) , I EMONE ,B 

I 28) ) 

7 1 ERL IMT , A 

l 14) ) , { ETOL , A 

I 30) ), (EXMODE, B 

l 27) ) 

8IGK2M ,B 

I 36) ) , I H2 ,B 

I 15)), (IMODE , A 

I D) 

91 INDERR, B 

I 51 ) ) , I KSUB ,B 

I 19 ) ) , I MBODYS, B 

I 42) ) 

EQUIVALENCE 
11 NEQ , A 

I 2) ), (NSTART, B 

I 24) > , IOLDDEL,B 

I 9) ) 

2IQMAX , 8 

I 44)), (RATIO ,B 

I 58 ) ) , I RB ,B 

I 193)) 

3IREVS , A 

I 48 ) ) , 1 R ,B 

I 102) ) , (STEPMX, A 

I 16) ) 

4 1 STEPGO, A 

I 41 ) ) , I STEPNO, A 

I 42) ), (TRSFER, B 

I 8) ) 

5ITRU ,B 

I 40) ) , I TTEST , A 

I 54 ) ) , I VSQRD ,B 

I 96)) 

6IVX , B 

I 92 ) ) , I XOQT , B 

1 50 1 ) ) , ( X INC ,B 

( 601)) 

7IXPRIM ,C 

1 712 )), (XPRIHBtC 

( 911)), (XWHOLEffi 

( non 

8 I X , B 

I 401 ) ) , I ERLOG ,B 

I 17 ) ) , I EREF , A 

I 13) ) 

9IQ , B 

I 59) ), (OUTPOT, B 

I 399)) 



C 

C PART 1. SET UP THE STARTING SEQUENCE FOR ERROR CONTROL AND DELAY CHECKING 

C THE ERROR UNTIL TWO STEPS ARE COMPLETED. THE ASSIGNED GO TOS NSTART AND 

C IBEGIN CONTROL STARTING. 

NEQ = NEQ 

1 DO 2 J=l»NEy 

XPRIMl J,2 > a XPRIM(J,1) 

XPR IMB ( J » 2 ) = XPRIMBI J, I) 

2 XIJ) = XPRIMl Jf II 
NSTART = 0 
TRSFER = 0. 

H2 = DELT 
DELT - DELT/2. 

220 CALL EQUATE 

IF (OUTPOT) 222,221,222 

221 CALL OUTPUT 

222 DO 3 J-1,3 
XWHOLEI J)=VX(J) 

3 XWHOLEI J+3 > = RB(J) 

C CHANGE INTEGRATION VARIABLES IF IMODE IS 
IF l IMODE) 4,5,5 

4 CALL TESTTR 
GO TO 1 

5 CALL TESTTR 

IF (TRSFER) 1,205,1 
205 ASSIGN 21 TU NSTART 

C STATEMENTS 7 TO 9 INITIALIZE NREV1 AND NREV2 FOR USE IN PART 7A. 

IF ( RB ( 2) ) 7,6,8 

6 IF ( VX( 2) ) 7,8,0 

7 ASSIGN 37 TO NREVl 
ASSIGN 35 TO NREV2 
GO TO 9 

8 ASSIGN 33 TO NREVl 
ASSIGN 37 TO NREV2 

9 DO 10 J= 1 , NEQ 
XDOTPM I J , 1 ) = XDOTIJ) 

XINCIJ) = 0. 

10 CONTINUE 

11 KSUB = 1 
ASSIGN 16 TO N 

C 

C PART 2. RUNGE-KUTTA SUBINTERVAL SCHEME. EQUATE PRODUCES THE NECCESSARY 
C DERIVATIVES XDOTIJ). 

12 DO 13 J S 1 , NEQ 

XKIJ) = XDOTIJ) * DELT 

XINCIJ) ■ XINCIJ) ♦ AWI KSUB) *XK I J ) 

13 XIJ) a XPRIMl J,2 ) + AK I KSUB ) *XK( J ) 

14 CALL EQUATE 

15 GO TO N, (16, 17, 18, 20) 

C 

C PART 3. SUBINTERVALS 2, 3, AND 4, TO STATEMENT 19 FINISH A 

C RUNGE-KUTTA STEP AND INCREMENT XPRIM(J,2) IN DOUBLE PRECISION. 

16 KSUB = 2 
ASSIGN 17 TO N 
GO TO 12 

17 KSUB = 3 
ASSIGN 18 TO N 
GO TO 12 

18 DO 19 J=1,NEQ 

XINCIJ) = XINCIJ) + AW( 4) *XDOT I J ) * DELT 
180 CALL EXADDIXPRIMI J,2), XPRIMB(J,2), XINCIJ)) 

XIJ) * XPR IM I J , 2 ) 

19 CONTINUE 

c 

C PART 4. BEGIN A NEW RUNGA-KUTTA STEP. THIS ALSO GIVES DERIVATIVES 

C FOR THE LOWER ORDER INTEGRATION CHECK. 

ASSIGN 20 TO N 
GO TO 14 

20 GO TO NSTART, 127,23,21) 

C 

C PART 5. STARTING PHASE PROGRAM. 

C PART 5A. THIS SECTION COMPLETES THE FIRST STEP OF STARTING PHASE. 

21 ASSIGN 23 TO NSTART 
DO 22 J= 1 , NEQ 

OLD I NCI J ) -XINC( J) 

XINCI J)»0. 

XDQTPMI J , 2 J * XDOTIJ) 

22 CONTINUE 
GO TO 11 
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C PART 5B. MAX ERROR TEST— START ING ONLY— CHECK THE MAX ERROR AND 

C EITHER ENTER RUNNING MOOE OR REPEAT START WITH SMALLER STEP. 

23 DO 24 J = 2 » NfcQ 

24 XINC(J) *<XINC(J)+OLDINC(J))*3.-(XOOTPM(J,l)+XDOTPM( J,2)*4. 

1+XDOTC J) )*DELT 

240 CALL ERRORZ 

25 IF ( E2-ERLIMT ) 26,26,56 

26 ASSIGN 27 TO NSTART 
ASSIGN 11 TO IBEGIN 
Al = A2 

GO TO 31 
C 

C PART 6. RUNNING PHASE PROGRAM. 

C PART 6A. CHfcCK THE INTEGRATION BY INTEGRATING OVER THE LAST 

C RUNGE KUTTA STEP BUT USE DOTS FOR LAST TWO INTERVALS, OLDDEL 

C AND DELT RESPECTIVELY. STATEMENT 28 IS THE LOWER INTEGRATION 

C MINUS RUNGE-KUTTA INCREMENTS. ERRORZ COMPUTES THE MAXIMUM RELATIVE 

C ERROR AND STATEMENT 29 TESTS THIS ERROR AGAINST THE LIMIT VALUE. 

27 RATIO = DELT/OLDDEL 
HFACT=DELT/( l.+RATIO) 

AC0EF1=-RATI0*RATI0*HFACT 

AC0EF2=RATI0*(0ELT+3.*0LDDEL) 

AC0EF3**DELT+0ELT+HFACT 

DO 28 J=2 , NEQ 

28 XINC(J) = AC0EF1*XD0TPM{ J, 1) +AC0EF2*XD0TPM( J , 2 ) -6. *X INC (J ) 

1+AC0EF3*XD0T { J ) 

280 CALL ERRORZ 

29 IF (E2-ERLIMT) 30,30,57 
C 

C PART 7A. LAST POINT OKAY. COUNT THE REVOLUTIONS PAST THE X-AXIS. 

C A STEP GREATER THAN 1/2 REV. MAY FAIL TO ADD IN. 

30 H2 = DELT 

31 QMAX * MAX IF ( 0 , QMAX ) 

IF ( RB{ 2) J 32,34,34 

32 GO TO NREV1 , (37,33) 

33 ASSIGN 37 TO NREV1 
ASSIGN 35 TU NREV2 
GO TO 37 

34 GO TO NREV2, (37,35) 

35 ASSIGN 33 TO NREV1 
ASSIGN 37 TO NREV2 

36 REVS = REVS + 1. 

37 IF ( XABSF( IM0DE)-1) 42,38,42 
C 

C PART 7B. IN ORBIT ELEMENTS. ADJUST ARGUMENT OF PERICENTER AND MEAN ANOMALY 

C TO + OR - PI TO MAINTAIN ACCURACY IN SIN-COS ROUTINES. 

38 IF (EMONE) 39,42,42 

39 DO 41 J=4, 7, 3 

ADJ2=INTF( XPRIMI J , 2 ) /6.2831 8532+S IGNF ( .5,XPRIM( J,2) ) ) 

IF (ADJ2) 40,41,40 

40 ADJ3 = -ADJ2*6. 28125 

400 CALL EXADD(XPRIM(J,2),XPRIMB(J,2),ADJ3) 

ADJ3=-A0J2*. 0019353072 

401 CALL EX ADD (XPRIM(J,2) ,XPRIMB(J,2) , AD J3 ) 

41 CONTINUE 
C 

C PART 7C. ADVANCE THE REMAINING PARAMETERS, FIND NEW STEP SUE, 

C ANO TEST FOR AN ORIGIN TRANSLATION. 

42 DO 43 K=l» 3 
XWHOLEI K) =VX(K ) 

43 XWHOLEI K+3) * RB ( K ) 

DO 44 J s l,NEQ 

XDOTPMI J , 1 ) = XDOTPMI J,2) 

XDOTPMI J , 2) * XDOT(J) 

XPR I M ( J , 1 ) = XPRIMI J,2) 

XPR IMB ( J , 1 ) » XPRIMBI J,2) 

XINC(J) = 0. 

44 CONTINUE 
OLDDEL =• DELT 

45 CALL STEP 

IF (DONE) 67,450,67 

450 IF (NSTART) 451,1,451 

451 IF (MBODYS) 46,47,46 

46 CALL TESTTR 

IF ( TRSFER ) 1,47,1 

47 IF ( XABSFI lM0DE)-3) 11,48,11 
C 

C PART 7D. IF IN TEMPORARY RECTANGULAR COORDINATES, TEST FOR RETURN 

C TO ORBIT ELEMENTS. FIRST, E IS FOUND. IF TIME HAS NOT ADVANCED 
C SUFFICIENTLY, INTEGRATION CONTINUES IN RECTANGULAR VARIABLES (STATE. 48). 

C STATEMENT 49 DETERMINES IF KEPLERS EQUATION CAUSED IMODE * 3. IF NOT, 

C AN E CLOSE TO 1 CHECK IS MADE IN STATEMENT 50. IF IT DID, RECTANGULAR 

C VARIABLES WILL BE USED IF THE LIMIT IS TOO SMALL (STATEMENT 52), OR 

C IF E IS 5 OR GREATER (STATEMENT 53) OR IF THE PATH LIES CLOSE TO AN 

C ASYMPTOTE (STATEMENT 55). 

48 CALL C0NVT1 (VX,AMC) 

EXMOOE=SQRTF< l .+ AMSQRD/GK2M* ( VSQRD/GK2M-2. /R ) > 

£MONE= EXMODE- 1. 

IF ( (XPRIMI 1 )— TTEST) *DELT) 11,11,49 

49 IF (ASYMPT) 51,50,51 

50 IF (ETOL-ABSFl EMONE)) 55,11,11 

51 IF< EMONE ) 55,55,52 

52 IF (C0NSTU-1.E-7 ) 11,53,53 

53 IF (EXMODE-5.) 54,11,11 

54 CALL C0NVT2 

IF ( A8SF ( TRU)— 2.2/ SQRTF( EXMODE ) ) 55,55,11 

55 ASYMPT = 0.0 
IMODE*— 2 

555 CALL TESTTR 
GO TO 1 
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c 
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c 

c 

c 


c 


PART 8. COMfcS HERE WHEN ERROR TEST FA I LEO — BOTH STARTING AND RUN. 

RETRIEVE OLD POINT AND RECOMPUTE WITH SMALLER INTERVAL. 

IF TWO CONSECUTIVE TRYS FAIL (STATEMENT 59) THE STARTING SEQUENCE OCCURS. 

56 ASSIGN I TO IBEGIN 

57 00 58 J=l,NEQ 

XPRIMt Jt 2) = XPR IM( J » 1 ) 

XPR I MB ( J » 2 ) = XPR I MB ( J , l ) 

XOOT (J)=XD0TPM(J,2) 

X INC ( J ) = 0. 

58 CONTINUE 
STEPNO=STEPNO+l. 

H 2 = OELT 

DELTAS IGNF ( fcXPF ( < ERL0G-A2 )/5.)»DELT) 

A2 =A 1 

59 IF ( FAIL-STEPGO) 60,61,60 

60 FAIL = STEPGO 

GO TO IBEGIN, (11,1) 

61 ASSIGN 1 TO IBEGIN 

IF ( STEPNO + STEPGO - STEPMX) 62,62,45 

62 GO TO IBEGIN, (11,1) 

PART 10. PRINT OUT THE ERROR INFO. IF EREF HAS A - SIGN. THEN RETURN. 

67 IF (EREF) 68,72,72 

68 WRITE OUTPUT TAPE 6,70 
REWIND 4 

DO 69 1=1, INDERR 
READ TAPE 4, BEX 

69 WRITE OUTPUT TAPE 6, 71, BEX 
REWIND 4 

INDERR = 0 

70 FORMAT ( 7H1 STEP, 6X, 4HT I ME , 6X, 4HDELT, 7X, 2HA2 , 8X , 2HE2 , 7X, 4HMASS , 6X, 

14HE, VX , 4X» 8H0MEGA, VY, 2 X , 8HN0DES , VZ » 3X» 6H I NCL , X, 5X , 4HMA, Y,6X,3HP,Z, 

24X , 1 HK// ) 

71 FORMAT (F5*,1H+F3.,1P11G10.2, 12) 

72 RETURN 
END 

SUBROUTINE ORDER 

THIS ROUTINE TAKES THE BOOY LIST READ FROM CARDS AND SORTS THEM IN 
OROER SO THAT THE DISTANCE FROM THE REFERENCE TO EACH BODY IS 
DEPENDENT UPON ALREADY CQMPUTEO DISTANCES ONLY. 

ELLIPSE DATA ARE READ INTO A BLOCK OF 120 STORES RESERVED FOR 
TEN ELLIPSES. ONE ELLIPSE IS READ INTO A 12 STORE BLOCK. 

THE SINES AND COSINES OF THE 3 ANGLES ARE COMPUTED AND STORED 
IN THE TDATA ARRAY ALONG WITH THE REST OF THE ELLIPSE DATA. 

A BLOCK IS ARRANGED AS FOLLOWS* 

(1) = NAME OF BODY IN BCD, ONLY 6 CHARACTERS. 

(2) = NAME OF REFERENCE BODY IN BCD, SAME RESTRICTION. 

(3) = MASS OF THE BODY IN SUN MASS UNITS. 

(4) = RADUIS INSIDE OF WHICH COORDINATES WILL BE TRANSLATED TO THIS BODY. 

(5) = SEMILATUS RECTUM IN ASTRONOMICAL UNITS. 

(6) = ECCENTRICITY OF THE ORBIT. 

(8) = LONGITUDE OF ASCENDING NODE. 

(7) = ARGUMENT OF PERIHELION. 

(9) = INCLINATION OF THE ORBIT. 

(10) = PERIGEE PASSAGE JULIAN DAY. 

(11) = PERIGEE PASSAGE FRACTION OF DAY. 

<121= PERIOD OF THE ELLIPSE IN MEAN SOLAR DAYS. 

AMASS = MASS OF EACH BODY, SUN MASSES. ORDER OF PNAME. 

BMASS = SELECTED FROM AMASS. CORRESPONDS TO BNAME LIST. 

BNAME = THE ORDERED LIST OF BCD BODY NAMES. CAN BE USED IN OUTPUT. COMMON. 
BOOYCD = THE ORIGINAL BCD NAMES READ FROM CARDS. 

BODY L = THE LIST OF BCD BODY NAMES WITH THE REFERENCE BODY AT TOP. 

INITIALLY EQUAL TO BODY CARD LIST (BODYCD). 

I BOOY = ARRAY OF SUBSCRIPTS. WHEN A DISTANCE IS FOUND FROM EPHEMERIS, IT 
MAY BE ADDED (OR SUBTRACTED) FROM THE BODY POSITION GIVEN BY 
XP I I BODY ) TO OBTAIN THE POSITION OF THE PRESENT BODY. COMMON. 
KZERO = COUNT OF ZERO REFERENCES. THERE MUST BE ONE AND ONLY ONE ZERO. 

FROM LOCATION IN BNAME LIST. NOT IN COMMON. 

MANE = ARRAY OF SUBSCRIPTS. INVERSE OF NAME. GIVES NEW LOCATION OF 
BNAME LIST IN TERMS OF BODYL. NOT IN COMMON. 

NBODYS = COUNTED INTERNALY. TOTAL NUMBER OF BODYS. 

MBODYS = COMPUTED INTERNALY. TOTAL NUMBER OF EPHEMER IDES (NBODYS-1). 

NAME = ARRAY OF SUBSCRIPTS. GIVES OLD LOCATION OF NAMES IN BODYL 
NEFMRS = ARRAY OF SUBSCRIPTS. GIVES LOCATION OF BODY IN PNAME LIST 
IN TERMS OF THE EFMRS LIST. STOREO IN COMMON. 

NREFER = ARRAY OF SUBSCRIPTS. LOCATES THE REFERENCE BODY IN BODYL. 

ORDER OF THE ARRAY CORRESPONDS TO BODYL. NOT IN COMMON. 

NNREFR = ARRAY OF SUBSCRIPTS. LIKE NREFER BUT REFERS AND CORRESPONDS TO 
BNAME LIST. NOT IN COMMON. 

PNAME = A PERMANENT LIST OF BCD BODY NAMES. 1 WORD EACH (6 CHARACTERS 

MAX). USED TO IDENTIFY MASS, REFERENCE NAMES, ETC. THE LIST IS 
A MAXIMUM OF 30 NAMES. PRECISION TAPE NAMES ARE FROM 1 TO 20, 
ELLIPTIC NAMES ARE FROM 21 TO 30. 

REFER = A PERMANENT LIST OF BCD BODYS THAT ARE THE REFERENCES OF 

DISTANCES GIVEN IN EPHERMERIDES (TAPES OR ELLIPSE). CORRESPONDS 
TO PNAME LIST. 

COMMON C 


DIMENSION 

A( 600 ) , 

B( 700) , C ( 4000 ) , 



1 

AMASS 

(30) , 

BMASS 

(8) , 

BNAME 

(8) , 

2 

BODYL 

(8), 

EFMRS 

(7), 

IBODY 

(8), 

3 

MANE 

(8), 

NAME 

(8), 

NEFMRS 

(8), 

3 

NEFMRT 

(8) , 

NNREFR 

(8) , 

BODYCD 

(8), 

4 

NREFER 

(8), 

PNAME 

(30), 

RBCRIT 

(7), 

5 

RCRIT 

(30), 

REFER 

(30), 

TDATA 

(18,7) 

6 

TDEL 

(7), 

TIM 

(7), 

EL I PS 

( 120) , 

7 

NDUD 

(9), 

XPR I M 

(200) 
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c 

c 

c 

c 

c 

c 

B 


c 

c 

c 


c 

c 

c 


c 


c 

c 


c 

c 
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EQUIVALENCE 


1 (A ,C 

2 ( AU f A 
3 ( BNAME , B 
4IEFMRS * 6 
5 ( GK2M , B 
6( MBQDYS, B 
7 ( PNAME • A 
8 ( R8CRI T , B 
9 ( RE t A 

EQUIVALENCE 
1 (ROTATE? A 
2 ( SQRDK , B 
31TFILE » A 
4( XPRIM ,C 
EQUIVALENCE 


{ ID), (AMASS t A 
1 29)), (B ,C 

( 122) ) , (BODYCD,A 
( 130) ) , ( EL IPS , A 
( 36 ) ) , ( GKM ,B 

( 42) ), (NBODYS, B 

( 207) ),(RATMOS,B 
( 145) ) , ( RCR I T , A 
( 25) ) , (RESQRD,B 

( 39 ) ) , ( SPO , A 

( 35)),(TOATA ,B 

( 6)), (TIM ,B 

( 71 1 ) ) , ( OUTPOT , B 
(MANED), NOUD<2) ) 


( 347 1 ) , ( ATMN ,A ( 2D), 

( 1111) ),(BMASS , B ( 137)), 

< 143 ) ) , ( 80UYL ,6 ( 153)), 

( 167)), (FILE ,B ( 22)), 

( 37 ) ) , ( I BODY ,B ( 177)), 

( 41 ) ) , ( NEFMRS, B ( 185D, 

( 23) ) , ( RATM , A ( 22)), 

( 377)), (REFER ,A ( 317)), 

( 7 ) ) , ( REVOL V, B ( 2D) 

( 44 ) ) , ( SQROK1 , A ( 47D, 

( 265 ) ) , ( TDEL ,B ( 170)), 

( 163) ) , (TRSFER,B ( 8)), 

< 399)) 


THIS SECTION SEES WHAT ELLIPSE DATA WAS READ FROM CARDS AND PUTS THE 
NAMES IN PLACE SO THAT DATA WILL BE USED IF NEEDED. ELLIPSE DATA HAS 
PRIORITY OVER TAPE DATA BECAUSE LAST DATA IN LIST IS THAT ACTUALLY USED. 
FUNCTION COMPARF ( A , B ) IS EQUIVALENT TO (A-B) BUT WILL NOT OVERFLOW. 


COMPARF( A, B) = ( A+B) * (-( A*B) ) 
DO 2 K-l , 120 , 12 
IF ( EL I PS ( K ) ) 1,2,1 
1 KOUNT = (K-l)/ 12+21 


PNAME (KOUNT) 
REFER(KOUNT) 
AMASS( KOUNT) 
RCRI T ( KOUNT ) 
CONTINUE 


» ELIPS(K) 

= EL IPS! K+l ) 
= EL IPS( K+2) 
= EL IPS( K+3) 


PART 0. THROW AWAY BLANKS AND DUPLICATES IN BNAME LIST. 

ALSO COUNT THE BODIES. 

IF ( TRSFER ) 4,3,4 

3 BNAME ( 1 ) = BODYCDI 1) 

4 DO 5 K= l » 8 

5 BNAME(K+1)= BODYCO(K) 

L = 1 

BOOYL(O) = 0. 

DO 8 1=1,9 
BOOYL ( I ) = 0. 

DO 6 K=1,L 

IF (COMPARF (BNAME(l), BODYL ( K-l ) ) ) 6,7,6 

6 CONTINUE 
BDOYL(L) = BNAME ( I ) 

L = L + l 

7 BNAME! I) = 0. 

8 CONTINUE 
NBODYS = L— 1 
MBODYS = NBODYS- 1 

PART 1. FIND THE REFERENCE BODY FOR EACH BODY IN THE LIST OF BODYS 
READ FROM CARDS. CLEAR NREFER AND BNAME. 

DO 13 KL=1, NBODYS 
NREFER(KL) = 0 
NEFMRT(KL) =0 
BNAME (KL) = 0. 

DO 12 KP= 1,30 

IF ( COMPARF ( BODYL ( KL) , PNAME ( KP ) ) ) 12,9,12 

9 NEFMRT(KL) = KP 

DO 11 KR = 1,8 

IF (COMPARF(REFER(KP),BQDYL(KR))) 11,10,11 
10 NREFER(KL) = KR 
U CONTINUE 

12 CONTINUE 

13 CONTINUE 

PART 2 . COUNTS 0 REFERENCES AND SAVES TEMPORARY SET OF INDEXS. 

14 IF ( NBOOYS ) 24,24,15 

15 KZEROS = 0 
MISPEL = 0 

DO 20 K = 1, NBODYS 
NNREFR(K) = NREFER(K) 

16 IF ( NEFMRT ( K > ) 18,17,18 

17 MISPEL = MISPEL + 1 

18 I F ( NREFER( K) ) 20,19,20 

19 KZEROS = KZEROS + 1 

20 CONTINUE 

21 IF (KZEROS- 1) 24,22,24 

22 IF (MISPEL) 24,23,24 

23 IF ( NBODYS— 8 ) 28,28,24 


PART 3 . REPORTS ERRORS IN BODY LIST. 

24 WRITE OUTPUT TAPE 6,25 , NBODYS »M I SPEL , KZEROS ,( BODYL ( K ), K= 1 , NBOOYS ) 
WRITE OUTPUT TAPE 6,26 , ( NREFER ( K) ,K=i, NBODYS) 

WRITE OUTPUT TAPE 6,27 ,( K, PNAME ( K ), REFER ( K ), K=1 ,30 ) 

25 FORMAT (26H0G00FY BODY LIST (NBODYS =I2,13H, MISSPELL =12, 

1 11H, KZEROS =12, 1H)/11H0B0DYLIST =8(3X,A6)) 

26 FORMAT (11H NREFER =16,719) 

27 FORMAT C/5(3H K3X, 4HB0DY4X, 5HREFER5X, ) /5 ( 1 3 , 2X, A6, 2X, A6, 5X )) 

CALL EXIT 


PART 4. TRACES OUT ..REFERENCE TO BODY.. RELATIONSHIPS 

28 KK = 2 
KN = 1 
NAMEU) = 1 

29 IF l NREFER { KN ) ) 24,31,30 

30 NAME(KK) = NNREFR(KN) 

NNREFR(KN) = 0 

KN = NAME ( KK ) 

KK = KK + 1 
GO TO 29 
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C PART 5. TRACES OUT ..BODY TO REFERENCE.. RELATIONSHIP 

3.1 DO 34 KN = 1 » NBODYS 
DO 34 K = I, NBODYS 

32 IF INNREFR(K) - NAME(KN)) 34,33,34 

33 NAME(KK) = K 
KK = KK ♦ 1 

34 CONTINUE 
C 

C PART 6. INVERTS NAME TO MANE, STORES BNAME, BMASS, RBCRIT, AND A 
C TEMPORARY NEFMRS. 

DO 35 K = 1, NBODYS 
N = NAME ( K) 

MANE ( N) = K 
NEF = NEFMRT ( N ) 

BNAME(K) = PNAME(NEF) 

BMASS ( K ) = AMASS ( NEF ) 

RBCRIT { K ) = RCRIT(NEF) 

NEFMRS (K) = NEF 

35 CONTINUE 
C 

C PART 7. FINDS NNREFR REFERENCE FOR BNAME LIST , ALSO TEMP. IBODY 

DO 36 K = i, NBODYS 
N * NAME (K) 

NRF = NREFER(N) 

NNREFR ( K ) = MANE { NRF ) 

36 IBODY! K) = MANE ( NRF ) 

C 

C PART 8 . FINDS IBODY FOR BACKWARD REFERENCE. 

DO 39 K=1 » 8 

37 IFtNNREFR(K) ) 24,40,38 

38 N - NNREFR! K) 

IBODY! N) * -K 

39 CONTINUE 

C IBODY LIST IS COMPLETE. 

C 

C PART 9 . WRITES OUT EPHEMERIS LIST TO BE USED IN STORING DATA AND 

C MAKES FINAL NEFMRS LIST. 

40 KK = 1 

DO 43 K=i, NBODYS 

41 IF (NNREFR! K) ) 42,43,42 

42 EFMRSIKK) = BNAME ( K ) 

NEFMRS ( KK J = NEFMRS ! K ) 

KK = KK + 1 

43 CONTINUE 

NEFMRS! NBODYS) = 0 
C 

C PART 10. SAVES ELLIPSE DATA 

FILE = 0. 

IF (MBODYS) 430,480,430 
430 DO 48 K=1 , MBOOYS 

44 IF ! NEFMRS! K )— 20 ) 47,47,45 

45 DO 46 J=5» 12 

L= (NEFMRS(K) - 21) * 12 +J 

46 TOATA! J— 4,K) = ELIPS(L) 

DO 50 J=7* 9 

L = { NEFMRS! K)— 2 1 ) * 12 + J 
TDATA ( J+2, K ) = S INF ( EL I PS! L ) ) 

50 TDATA! J+5»K) = CDSF! EL IPS! L ) ) 

GO TO 48 

C 

C PART 10A. LOADS A FALSE (VERY EARLY) TAPE TIME TO FORCE TAPE 

C READING BY THE EPHMRS ROUTINE. FILE = 0 UNLESS TAPE IS USED. 

47 TDEL(K) = 0 

TIM! K) * 2400000.5 
FILE » 10. 

48 CONTINUE 
C 

C PART 11. COMPUTE GRAVITATIONAL CONSTANTS. 1.9866 E+30 = KILOGRAMS/SUN MASS 

C IF ORIGIN BODY HAS AN ATMOSPHERE, SET ROTATION RATE AND ATMOSPHERE RADIUS. 

C POSITION THE EPHEMERIDES TAPE AT THE BEGINNING OF THE CORRECT EPHEMERIS 

C BY MATCHING THE EPHEMERIS NUMBER READ FROM TAPE (FILE) WITH THE DESIRED 

C EPHEMERIS NUMBER ( TFILE) • 

C 

480 RESQRD = R6»*2 

SQRDK = SQRUK1»AU**3/SPD**2 

GK2M = SQRDK* ( BMASS ( 1) + XPR IM( 2 ) / 1 . 9866 E30) 

GKM = SQRTF ( GK2M ) 

REVOLV = 0. 

RATMOS = 0. 

IF ( ATMN-BNAME ( 1 ) ) 51,49,51 

49 REVOLV = ROTATE 
RATMOS = RATM 

51 IF (FILE) 56,56,52 

52 CALL BSFILE! 3) 

53 READ TAPE 3, FILE 

IF (FILE-TF1LE) 54,56,55 

54 CALL SKFILE! 3) 

GO TO 53 

55 BACKSPACE 3 
BACKSPACE 3 
GO TO 52 

C 

C PART 12. WRITES THE BNAME LIST ON TAPE 6 . 

56 IF ( OUTPOT ) 58,59,58 

59 WRITE OUTPUT TAPE 6, 57, BNAME ! 1 ),( BNAME ( K) ,K*2, NBODYS ) 

57 FORMAT ( I9H0REFERENCE BODY IS A6,5X,23H PERTURBING BODIES ARE 

1 7(2X,A6) ) 

58 RETURN 
END 
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SUBROUTINE OBLATE 

C THIS SUBROUTINE COMPUTES THE OBLATENESS ACCELERATIONS (OBLAT) DUE TO AN 
C AXIALLY SYMMETRIC EARTH. THE 2ND, 3RD, AND 4TH SPHERICAL HARMONIC COEFF. 
C ARE OBLATJ , OBLATH, AND OBLATD RESPECTIVELY. 

C 

COMMON C 
C 

DIMENSION A I 600 ) , 8(700), C(4000), 

1 RB| 3) , OBLAT (3) 

C 

EQUIVALENCE 

HA .c ( 1 1 ) ) , ( B *C ( 1111) ) , (GK2M ,B ( 36)), 

2 ( OBLATJ , A I 26) ), (OBLATD, A ( 27 ) ) , ( OBL ATH, A ( 28)), 

31 OBLAT , B ( 75)), (R ,8 ( 102)), (RB ,B ( 193)), 

*<R£ *A ( 25 ) ) , ( RSQRD »B ( 45 ) ) , ( RESQRD, B ( 7)) 

C 

AA = RB(3)/R 
AB = AA*AA 

IF (ABSF(AA)— 1. E— 6) 1,1,2 

1 AA=0. 

AB=0. 

2 AC = RESQRD/ RSQRD 

AD = GK2M/ RSQRD/ R* AC 
AE = OBLATJ*AO 
AF = OBLATH*AD*RE/R 
AG = OBLATD*AD*AC 

AH = AE*(5.AB-I. ) +AF* { 7. AB-3. ) *AA+AG*( 6. AB-9. AB**2-0. 4285714286 ) 
OBLAT(l) = AH*RB( 1 ) 

08LATI 2 ) = AH*RB ( 2 ) 

OBLAT! 3) = (AH-2.AE+AG*! A. AB- 1.714285714) )*RB(3)-AF* ( 3. AB-0.6)*R 

3 RETURN 
END 


C 

C 

c 

c 

c 

c 


c 


c 


c 

c 


SUBROUTINE OUTPUT 

ENTS AND RECTANGULAR COORDINATES ARE OUTPUTTED. IF THE OBJECT IS NOT WITH 
THIS IS THE ROUTINE WHICH FORMS THE BASIC DATA OUTPUT. BOTH ORBIT ELEM- 
IN AN ATMOSPHERE (PRESS=0.), ONE LINE OF DATA IS DELETED. LIKEWISE, 

ONLY THOSE PERTURBING BODIES PRESENT HAVE THEIR DISTANCES OUTPUTTED. 

COMMON C 


DIMENSION 

AI600 

, BI700), C 1 4000 ) , 



1 R 

(6), 

ORBELS (6), 

VATM (3), 


2 BNAME 

(8), 

RBI 3, 8 ) , 

DIRCOSI 3,8) , 


3 XPR I M 

(200), 

RAMC (5) 



EQUIVALENCE 




1 1 A ,C 

I 

11) ) , (ALPHA , A 

( 49) ), (ALT , A 

( 4) ) 

2 (AMC ,8 

( 

87)), (AM ,B 

( 90)), (AREA ,B 

( 6) ) 

3 (BNAME ,B 

I 

122)), (B ,C 

(1111)}, (CD , A 

( 165)) 

4 (CL , A 

I 

164) ) , (COSALF,B 

I 48) ), (COSTRU, B 

( 53) ) 

5t DTOFF J , A 

l 

23) ) , (H2 , B 

( 15)), (IMODE , A 

( 1) ) 

6(MB0DYS,B 

I 

42) ) , ( NBODYS, B 

( 41) ), (ORBELS, B 

( 116)) 

7 (PRESS ,B 

( 

33)), (P ,B 

( 84) ) , (PSI ,B 

( 30) ) 

8(PSIR , B 

i 

398)), (PUSH , A 

( 166)), (Q , B 

( 59) ) 

9( RAMC ,B 

i 

393)), (RB ,B 

( 193)), (REVS , A 

( 48) ) 

EQUIVALENCE 




1 (R , B 

( 

102) ) , ( S INALF , B 

( 46 ) ) , ( S INTRU, B 

( 52) ) 

2 ( STEPGO , A 

i 

41) ) , (STEPNO,A 

( 42) ) , ( TABLT ,B 

( 20) ) 

3ITRU ,B 

( 

40 ) ) , ( VATM ,B 

( 97)), (VQ ,B 

( 100)) 

4( V ,B 

i 

95)), (VX ,8 

< 92)), (VY ,B 

( 93)) 

5(VZ , B 

i 

94) ) , ( XPR IM ,C 

( 711) ), (OUTPOT, B 

( 399)) 


DAYJ=( DTOFFJ— 2.4E6)+TABLT 
ALPHA 1 = ALPHA*57. 29577951 

REV = RE VS+ARCTANl— RB( 2) ,-RB ( 1 ) )/6.2 83 18532 * .5 

16 CALL CONVT 1 ( VX, AMC ) 

IMODE* IMODE 

GO TO (2,1,1), IMODE 

1 C0DE=6HRECTAN 

18 CALL CONVT 2 
GO TO 4 

2 DO 3 K=1 ,6 

3 ORBELS(K) = XPR1MIK+2) 

COOE=5HORBIT 

TRU=ARCTAN( S INTRU, COSTRU ) 

4 PSI = ATANF! (RB( 1 ) *VX+R6 ( 2 ) *VY+RBI 3) «VZ) /AM) 57. 2957795 
IF (OUTPOT) 19,6,19 

6 WRITE OUTPUT TAPE 6, 1 1 , STEPGO, STEPNQ»ORBELS( 1 ) , ORBELS( 2 ) » V,R( 1 ) »B 
lNAME(l), CODE, IMODE, XPRIM(1),0RBELS( 6), TRU,VX, RBI l ) , XPR IM (2) , DAY J , 0 
2RBELS(5) ,0RBELS(3) , VY, RB (2 ) ,REV, ALPHAl , PS I , ORBELS ( 4 ) ,VZ,RB(3) ,H2 

IF WITHIN AN ATMOSPHERE COMPUTE DRAG, LIFT, G, ETC., AND PRINT EXTRA LINE. 

19 IF (PRESS) 5,7,5 

5 XI FT = Q*AREA*CL 
DRAG = Q*AREA*CD 

G = ( PUSH— DRAG*C0SALF+X I FT*SINALF)/XPRIM(2)/9.80665 

17 CALL CONVT II VATM,RAMC) 

PSIR = ATANF I (RB(1)*VATM(1)+RB(2)*VATM(2) +RB (3)*VATMI3) )/RAMC(4) )* 

1 57.2957795 
IF (OUTPOT) 7,14,7 

14 WRITE OUTPUT TAPE 6, 12, ALT, PS IR, DRAG, VQ, G, PUSH 
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C IF PERTURBATING BODIES ARE PRESENT, FIND THEIR DISTANCES AND PRINT THEM. 

7 IF (MBODYS) 8,10,8 

8 DO 9 J=2»NB00YS 
DO 9 K=1 ,3 

9 DIRCOS ( K , J ) - -RB(K, J)/R< J) 

IF (OUTPOT) 10,15,10 

15 WRITE OUTPUT TAPE 6,13, 

1 ( BNAMEf J ) ,R( J ) , DIRCOS ( 1, J) , DIRCOSt 2, J) , DIRCOS (3, J) , J=2,NB0DYS) 

10 RETURN 

11 FORMAT (6H0ST6P=F6.»2H +F4. , 3X , 1 3HECCENTR IC I T Y= IPG15. 8, 7H 0MEGA=G15 

1.8.4H V=G15.0,3H R=G15.8,7H REFER=A6, IX, A6, I2/6H TIME=1PG14.7, 14 

2H SEMILATUS R.=G15.8,7H TRU A=G15.8,4H VX=G15.8,3H X=G15.8,7H RMAS 
3S=G15. 8/9H JOAY= 240PF10.4, 15H MEAN ANOMALY* 1PG15. 8 , 7H N0DE=G15. 

48, 4H VY=G15.0,3H Y=G15.8,7H REVS.=G15.8/6H ALFA=G14.7, 14H PATH A 
5NGLE=G15.8,7H I NCL=G15. 8, 4H VZ=G15.8,3H Z=G15.8,7H DELT=G15.8) 

12 FORMAT ( 6H ALT.=1PG14.7, 14H R PATH ANGLE=G15. 8 , 7H DRAG=G15.8,4H VR 

l = G15. 8 » 3H G=G15.8,7H PUSH=G15.8) 

13 FORMAT (2(1X,A6,3H R= IPG14.7, 0P3F 10. 6, 1 IX ) ) 

END 

FUNCTION QUAD (X,IC> 

C THIS ROUTINE COMPUTES ANY VARIABLE, QUAD, AS A QUADRATIC FUNCTION OF X. 

C QUAD a A + AX + CXX. THERE MAY BE SEVERAL SETS OF CQEFFIENTS, EACH SET 

C BELONGING TO A PARTICULAR REGION OF X. THE COEFN ARRAY IS ARRANGED AS — 

C X1,A1,B1,C1,X2,A2,B2,C2,X3,A3,B3,C3,X4, 

C WHERE AL,B1,C1 ARE THE COEFF IENTS TO BE USED FOR X BETWEEN XI AND X2,ETC. 

C ANO XI IS LESS THAN X2, X2 IS LESS THAN X3, X3 IS LESS THAN X4, ETC. 

C IC IDENTIFIES WHICH DEPENDENT VARIABLE, QUAD, IS BEING SOUGHT. 

C ICC(IC) DEFINE THE STARTING LOCATIONS IN THE COEFN ARRAY FOR VARIABLES X. 

COMMON C 
C 

DIMENSION A ( 600 ) , B(700), CI4000), 

1 COEFN ( 190 ) , ICC ( 5 > 

C 

EQUIVALENCE 

I ( A ,C ( 1 1 ) ) , ( B ,C mil) ), (COEFN ,A ( 407)), 

2 ( ICC , A ( 153)) 

C 

1= ICC ( IC) 

1 IF { X-COEFN ( I) ) 2,3,3 
21=1-4 
GO TO 1 

3 I F ( X— COEFN l 1+4 ) ) 5,5,4 
41=1+4 
GO TO 3 

5 QUAD = COEFN ( I+l )+X* ( COEFN( 1+2 ) +X*COEFN ( 1+3) ) 

ICC t IC ) = I 

RETURN 

END 


SUBROUTINE STAGE 

C THIS ROUTINE IS CALLED TO PREPARE DATA FOR USE IN NBQDY. STAGE DATA IS 

C TAKEN FROM PERMINENT STORES ANO LOADED INTO WORKING STORES. STAGE DATA 

C MAY BE SET ASIDE FOR LATER USE (IF ON NSAVE'-NSTAGE ) • WHEN IMODE IS 4, 

C CONVERSION FROM EARTH-SPHERICAL TO RECTANGULAR OR ORBIT ELEMENTS TAKES 

C PLACE IN TUBES. 

C 

COMMON C 
C 

DIMENSION A( 600) , 6(700), C(4000), 

1XPRI M{ 200) »XPRIMB(200),T8( 10 ) ,FL0W1 ( 10 ) , AEX I T1 ( 10 ) , S I MP1 ( 10 ) , 

2AREAK 10) yDELTl(lO) , I DENT < 10) , TABLE ( 200 ) , RMASS1 ( 10 ) , D( 600 ) 

C 


EQUIVALENCE 


1 ( A 

C 

( 11) ) 

, ( AEXIT ,8 

( 3) ) , ( AEXITlyA 

( 103)) 

2 ( AREA1 

A 

( 113)) 

.(AREA ,B 

( 6 ) ) , ( 0 ,C 

( 1111) ) 

31DELT1 

A 

( 133)) 

, ( DELT ,B 

( 1 ) ) , ( D ,C 

(2111) ) 

4 (DEL 

A 

( 43) ) 

, (DELMAX, A 

( 19)), (DONE , B 

( 39) ) 

5 ( EREF 

A 

( 13) ) 

, ( ERLOG ,B 

( 17) ) , ( EX 1 TA ,B 

( 392)) 

6 ( FLOW 

B 

( 5) ) 

, ( FL0W1 , A 

( 83 ) ) , ( I DENT , A 

( 123)) 

7 ( IMODE 

A 

( 1) ) 

, ( LSTAGE, A 

( 38 ) ) , ( MODOUT , A 

( 20) ) 

8( NCASE 

C 

( 1) ) 

, (NCASES.A 

( 600 ) ) , ( NSAVE ,C 

( 4) ) 

9 ( NSTAGE, A 
EQUIVALENCE 

( 3) ) 

, ( PUSHO , B 

( 39 1 ) ) , ( RMASS1 , A 

( 73) ) 

KSIMP1 

A 

( 93) ) 

, ( S IMP ,B 

( 2 ) ) , ( TB , A 

( 63) ) 

2 (TABLE 

C 

(1911) ) 

, ( TKICK , A 

{ 15)), UMAX , B 

( 4) ) 

3( TTOL 

A 

( 45) ) 

, (XPRIMB,C 

( 9 1 1 ) ) , ( XPR I M ,C 

( 711)) 

4( RETURN 

B 

( 400)) 

, (OUTPOT, B 

( 399)) 



C 
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C PART 0. SAVE INITIAL DATA IF DESIRED. LOAD STAGE DATA INTO WORKING 

C STORAGE. ALLOW ADDITIONAL STAGE INPUT. 

IF (DEL) 100,99,100 
99 DEL = DELMAX-TKICK 

100 IF ( NSAVE-NSTAGE ) 103,101,103 

101 NCASES » NCASE 
DO 102 J=l,1100 

102 D( J ) . = At J) 

IF (OUTPOT) 103,97,103 

97 WRITE OUTPUT TAPE 6 , 98 , NST AGE , NCASE 

98 FORMAT ( 29H SAVED INITIAL OATA FOR STAGE I 2 , 8H OF CASE 14, 1H. ) 

103 NSTAGE = NS I AGE 

TMAX = XPRIM( 1 )+TB(NSTAGE> 

XPR IMB { 2 ) = 0. 

IF ( RMASS1 ( NSTAGE ) ) 117,117,118 

117 XPR1M( 2) = XPR IM ( 2 ) +RMASS1 ( NSTAGE ) 

GO TO 119 

118 XPRIMt 2) = RMASS1 (NSTAGE) 

119 FLOW = FL0W1 ( NSTAGE ) 

SIMP = SIMP1 ( NSTAGE ) 

AEXIT = AEXIT1 ( NSTAGE) 

AREA = AREA1 ( NSTAGE) 

DELT = OELT l (NSTAGE) 

ID = IDENT(NSTAGE) 

3 CALL INPUT ( ID, C, TABLE) 

ERLOG = LQGF(A8SF( EREF ) ) 

TTOL = 5E-8*ABSF(TMAX)+lE-8 
PUSHO = SIMP*FL0W*9. 80665 
EXITA = AEX1T*100. 

MODOUT = MODOUT 
IF (DELT) 105,104,105 

104 DELT = TB( NSTAGE)/ 100. 

DELT1 ( NSTAGfc ) » OfcLT 

105 GO TO (109,106,106,109), MODOUT 

106 IF (OEL-DELMAX) 108,108,107 

107 OEL = MOOFt DEL, DEL MAX) 

108 IF (DEL) 114,109,114 

114 DELT = M IN1F (DELT , DEL ) 

109 IF (XABSF( IM00E)-4) 1,110,1 

110 CALL TUOES 

IMODE = XS IGNF ( 2 , IMODE ) 

1 CALL NBODY 

2 CALL EXTRAS 
C 

C PART 9. COMES HERE FOR END OF SUB TRAJECTORY. 

IF (DONE) 113,111,111 

111 DONE = 0. 

IF (NSTAGE-LSTAGE) 112,115,115 

112 NSTAGE = NSTAGE+1 
GO TO 100 

113 DONE = 0. 

115 CALL EXTRA 

IF (RETURN) 103,116,100 

116 RETURN 
END 

SUBROUTINE STEP 

C SUBROUTINE STEP TESTS FOR THE END OF THE PROBLEM, COMPUTES STEP SIZE, AND 

C CONTROLS QUANTITY OF OUTPUT DATA. END OF PROBLEM OCCURS IF TIME = TMAX, 

C STEPGO+STEPNO = STEPMX, OR C(LOOKX) = XLOOK. THE LAST OPTION ALLOWS STOP- 

C PING ON A DtPENDENT VARIABLE. THE TEST FOR STOPPING AT XLOOK IS NOT MADE 

C UNTIL C ( LOOK SW > IS GREATER THAN SWLOOK. CONTROL UN QUANTITY OF OUTPUT IS 

C 

C MODOUT = 1 OUTPUT EVERY NTH STEP( N=STEPS) UNTIL TIME = TMIN, THEN 

C GO TO MODE 2 . 

C 2 OUTPUT AT INTERVALS OF DELMAX UNTIL TIME = TMAX. 

C 3 OUTPUT AT INTERVALS OF DELMAX UNTIL TIME = TMIN, THEN 

C GO TO MODE 4 . 

C 4 OUTPUT EVERY NTH STEP UNTIL TIME * TMAX. 

C 

COMMON C 
C 


DIMENSION A ( 600 ) , B(700), C(4000>, 


1 XPR I M ( 200 ) , 

0ELT1 (10) 




EQUIVALENCE 





l ( A ,C ( 

11) ) » (AX , B 

( 10)), (A2 

,8 

( 11) ) 

2(B ,C l 

1111) ) , (DELMAX, A 

( 19)), (DEL 

A 

( 43) ) 

3( DELT , B ( 

1 ) ) , ( DONE ,6 

{ 39)), (E2 

B 

( 18) ) 

4 ( END , A ( 

5)), (ERLOG , B 

( 17)), (H2 

B 

( 15) ) 

5( INLOOK, A ( 

599) ) , (LOOKSW,A 

( 9 ) ) , ( LOOKX 

A 

( 8)) 

6 ( MODOUT , A ( 

20) ), (NSTAGE, A 

( 3) ) , ( DELT1 

A 

( 133)) 

7 ( RAT 10 » B ( 

58) ) , (SIGNAL, B 

( 31)), (SPACES 

B 

< 16)) 

8 1 STEPGO, A ( 

41) ), (STEPMX, A 

( 16 )) » ( STEPNO 

A 

< 42)) 

9 ( STEPS , A C 

17) ) , ( SWLOOK, A 

( 10)), (TABLE 

,C 

(1911) ) 

EQUIVALENCE 





1 ( TMAX ,8 ( 

4)), (TMIN , A 

( L8 ) ) , (TTOL 

A 

( 45) ) 

2 ( XLOOK , A ( 

12 ) ) » { XPR I M ,C 

( 711 ) ) , ( XTOL 

A 

( 11) ) 

3 ( NSTART , B ( 

24)), (SWITCH, A 

(601) ) , (OUTPOT, 

B 

I 399)) 

CHECKF (A«B»C) = 

ABSF(A-B) - ABSF1A- 

C) 




C 

C PART 1. TEST FOR END OF THE PROBLEM (MAXIMUM PROBLEM TIME OR MAXIMUM 

C NUMBER OF STEPS). 

STEPGO = STEPGO + 1. 

OUT ■ OUTPOT 

IF ( ABSF(TMAX-XPRIMU) I-TTOL) 1,1,3 

1 DONE = 1.0 
112 CALL OUTPUT 

IF (OUTPOT) 26,111,26 
111 WRITE OUTPUT TAPE 6, 2, NSTAGE 

2 FORMAT (6H0STAGEI2, 11H COMPLETED.//) 

GO TO 26 

3 IF (STEPG0+STEPN0-ST6PMX) 7,4,4 

4 CALL OUTPUT 

WRITE OUTPUT TAPE 6, 5, STEPMX 

5 FORMAT (22H0STEPG0+STEPN0=STEPMX=F6.) 

CALL EXIT 
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C PART 2. COMPUTE STEP SIZE (DELT) AND CONTROL OUTPUT. 

7 N*1 

A3 = < A2-AIMRATIQ+A2 
AA = (ERLOG-A3J/5. 

IF < (ABSF(AA)-88.028)»ABSF(SWITCH) > 8,8,60 

8 DELT = S IGNF l £XPF( AA ) , DELT ) 

IF (DELT/H2-3.) 10,10,9 

9 DELT = 3.*H2 

10 MODOUT = MQUOUT 

GO TO (11,15,13,21) , MODOUT 

11 IF(DELT*(XPR1M( 1) + 3. *DELT-TM IN )) 21,12,12 

12 MODOUT = 2 

DEL = TM IN - XPR IM ( 1 ) 

GO TO 16 

13 IF ( DELT » (XPRIM(l) - TM IN ) ) 15,15,14 

14 MODOUT = 4 
GO TO 21 

15 DEL = DEL-H2 

16 SPACES = INTF( (OEL/DELT) +SIGNFI .9, (DEL/DELT) )) 

17 IF ( SPACES) 20, 18,20 

18 CALL OUTPUT 
N=2 

DEL = DELMAX 

IF ( ABSF ( DEL ) - ABSF(DELT) ) 19,16,16 

19 DELT = S IGNF ( DEL , DELT > 

GO TO 16 

20 DELT * OEL/SPACES 
GO TO 23 

21 IF (MODFJSTEPGO, STEPS) ) 23,22,23 

22 CALL OUTPUT 
N=2 

C 

C PART. 3. SEARCH FOR C(LOOKX) = XLQOK UNLESS LOOKX=0. 

23 IF ( LOOK X) 27,42,27 

27 LOOK X = LOOK X 
LOOK SW = LOOK SW 
OUTPOT = l. 

GO TO ( 44, 45 ) , N 

44 CALL OUTPUT 

45 1F( SWITCH) 32,28,33 

28 IF ( SW LOOK - CILOOK SW) ) 29,29,42 

29 XTOLl « XTOL*ABSF ( XLOOK ) 

IF (XTOLl) 31,30,31 

30 XTOLl = XTOL 

31 SWITCH = -1. 

GO TO 41 

32 SWITCH = 1. 

ASSIGN 43 TO MODE 
OVER = 0. 

F «= 0. 

T*=0. 

33 SLOPE = (C(LQ0KX)-0L0X)/H2 
GO TO MODE, (43,35) 

43 IF ( SLOPE * ( C ( LOOK X) - X LOOK)) 350,41,41 
350 ASSIGN 35 TO MOOE 

35 IF( ABSF(C( LOOK X)- X LOOK) - XTOLl) 36,36,37 

60 T= 1. 

36 IF (OUT) 63,46,63 

46 OUTPOT * 0. 

CALL OUTPUT 

63 IF (T) 61,47,61 

61 IF (OUT) 62,51,62 

51 WRITE OUTPUT TAPE 6,64, LOOKX,C( LOOKX) , H2, LOOKX, SLOPE 

64 FORMAT (3 HOC( 14, 4H) * 1PG15.8,31H CONVERGENCE TROUBLE. DELT 
1G15.8.14H SLOPE OF C(I4,13H> VS. TIME = G15.8//) 

GO TO 62 

47 IF (OUT) 62,50,62 

50 WRITE OUTPUT TAPE 6, 48, LOOK X, CILOOK X) 

48 FORMAT l 3H0C ( 14, 2H) =1PG15.8// ) 

62 LOOKX = 0 
XTOLl = 0. 

SIGNAL = 1. 

SWITCH = 0. 

DONE = END 
NSTART = 0 
NSTAGE=NSTAGE 

DELT = DELT1 ( NSTAGE ) 

49 CALL INPUT! INLOOK, C, TABLE ) 

IF (DONE) 110,42,110 

110 IF (OUT) 26,111,26 

37 SIGN = CHECKFIOLDX, XLOOK, C(LOOK X)) 

IF ( SIGN ) 40,40,38 

40 OVER = 1. 

GO TO 400 

38 IF (OVER) 400,401,400 

401 XGUESS = C ( LOOKX ) +SLOPE»DELT 

IF (CHECKF(CUOOKX) , XLOOK, XGUESS) ) 402,41,41 

402 F = F+l. 

IF ( F-7# ) 400,400,403 

403 SLOPE = SLQPE/F 

400 IF (SLOPE) 404,60,404 

404 DELT * SIGNF(ABSF(XLOOK-C(LOOKX) ) /SLOPE , S IGN*H2 ) 

4-1 OLOX * CILOOK X) 

42 IF ( ABSF ( TMAX-XPR1MI 1 ) )-ABSF { DELT ) ) 25,26,26 

25 DELT » TMAX-XPRIMI 1) 

GO TO (26,24,24,26) , MODOUT 

24 DEL = DEL-DELT 

26 OUTPOT = OUT 
RETURN 

ENO 
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SUBROUTINE STDATA 

C THIS ROUTINE CLEARS THE A, XPRIM, XPRIMB ARRARYS AND LOADS A SET OF 

C STANDARD DATA INTO THE MACHINE. ANY VALUES SET HERE MAY BE OVERWRITTEN BY 

C INPUT 1 IN THE MAIN PROGRAM. 

C 

COMMON C 
C 

DIMENSION A ( 600 ) , 6(700), C(AOOO), 


1 PNAME 

(12) , 

AMASS (30), 

XPRIM (200), 


2 


COEFN (190), 

ICC (A), 


3 AK 

(3), 

XDOT (100), 

IND (3), 


A REFER 

( 12) 

, RCRIT (30), 

AW (A), 


5 RMASSl 

( 10) 




EQUIVALENCE 




1 (A ,C 


1 1 ) ) , ( AK , A ( 

51) ), (AMASS , A 

( 3A7 ) ) 

2 ( AU , A 


29)), (AW , A ( 

55)), (B ,C 

(1111)) 

3 ( BODYCD , A 


1A3)), (COEFN , A ( 

A07 ) ) , ( CONSTU, A 

( 32) ) 

A (CONSU , A 


3 l) ) , ( DTOFF J , A ( 

23 ) ) , ( EREF , A 

( 13) ) 

5( ERL IMT, A 


1 A) ) , ( ETOL , A < 

30) ) , (GASFACjA 

( A6 ) ) 

6 ( I CC , A 


153 ) ) , ( IMOOE , A ( 

1 ) ) , ( I ND , A 

( 60) ) 

7 ( LOOKSW » A 


9 ) ) , { MGDQUT , A ( 

20 ) ) , ( NEQ , A 

( 2) ) 

8(NSTAGE, A 


3) ) , ( 08LAT0, A ( 

27) ) ,(OBLATH,A 

( 28)) 

9 ( OBL AT J * A 


26) ) , (PNAME , A ( 

287)), (RCRIT , A 

( 377)) 

EQUIVALENCE 




ltREFER , A 

( 

317)), (RE , A ( 

25 ) ) , ( SPD , A 

( AA) ) 

2 ( SQRDK 1 , A 

( 

A7) ) , ( STEPMX, A ( 

16)), (STEPS , A 

( 17) ) 

3< TFILE , A 

< 

6)), (XDOT ,B ( 

501) ) , (XPRIM ,C 

( 711)) 

A ( XTOL , A 

c 

11) ), (RMASSl, A ( 

73) ) 



C CLEAR INITIAL CONDITIONS AND CONTROL PARAMETERS. 

DO 1 J=l,1100 

1 A ( J ) = 0. 

C 

C THE FOLLOWING NH STATEMENTS LOAD THE BODY NAMES INTO THE MACHINE. 

PNAME(l) = 3HSUN 
PNAME! 2 ) = 6HMERCUR 
PNAME { 3 ) = 5HVENUS 
PNAME(A) = 5HEARTH 
PNAME( 5 ) = AHMARS 
PNAME( 6 ) = 6HJUPITE 
PNAME( 7 ) = 6HSATURN 
PNAME ( 8 ) = 6HURANUS 
PNAME( 9 ) = 6HNEPTUN 
PNAMEI 10 ) = 5HPLUT0 
PNAMEI 11)= AHMOON 
PNAMEt 12 ) = 6HEARTHM 

C 

C FILL OUT SUN REFERENCE LIST. INITIALIZE MASS ARRAY. 

DO 2 K-l , 10 
RMASSl(K) = 1. 

2 REFERlK+l) = PNAME ( 1 ) 

REFER! 12) = PNAMEI 1) 

C 

C FILL OUT EARTH REFERENCE LIST. 

REFER < 1) = PNAME (A ) 

REFER { A ) = 5HZER0+ 

REFER ( 11) = PNAMEI A ) 
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C LOAD THE REMAINING STANDARD OATA. 
AMI) = 0.5 
AK ( 2 ) ■ 0.5 
AKI3) a 1.0 
AMASS! 1 ) = 1.0 
AMASS! 2 ) = 1.0/6120000.0 
AMASS! 3) = 1.0/ 408645.0 
AMASS! 4) = 1.0/332951.3 
AMASS! 5 ) a 1.0/3088000.0 
AMASS! 6 ) = 1.0/1047.39 
AMASS! 7 ) = 1.0/3500.0 
AMASS! 8 ) a 1.0/22869.0 
AMASS! 9) = 1.0/18889.0 
AMASS! 10 ) « 1.0/400000.0 
AMASS! 1 1 ) =AMASS!4)/81.335 
AMASS! 12 ) =AMASS l 4 ) + AMASStll) 

AU = 1.49599 Eli 
AW ( l)=l./6. 

AW!2)=AW{ 1)+AW( 1) 

AW ( 4 ) =AW 1 1 ) 

AW ( 3 ) = 1 .- ! Aw!2)+!AW!l)+AWl4) ) ) 
BODYCD = PNAME C 4 ) 

COEFNI 1) a -1E20 
COEFN! 189) = 1E20 
CONSTU = 1.0 6-6 
CONSU = IE— 6 
ETOL = 0.01 
DTQFFJ = 244. E4 
EREF = IE— 6 
ERLIMT = 3E-6 
GASFAC a 20.064881 
ICC! 1) *185 
ICC! 2) =185 
ICC ( 3) =185 
ICC! 4) =185 
IMODE ■ 1 
IND( 1 ) =2 
IND! 2 ) =3 
IND! 3) =1 
LOOKSW * 711 
MOOOUT = 4 
NEQ=8 

NSTAGE = 1 

QBLATJ = 1.62345 E-3 
OBLATH = -5.75 E-6 
OBLATD = 7.875 E-6 
RCRITI1) = 1.0 E+20 
RCRITI2) = 1.0 E+8 
RCRIT! 3) = 6.14 E+8 
RCRITI4) = 9.25 E+8 
RCR I T( 5) = 5.78 E+8 
RCR I T ( 6 ) = 4.81 E+10 
RCR I T ( 7 ) = 5.46 E+10 
RCR I T ( 8 ) = 5.17 E+10 
RCR I T ( 9 ) = 8.61 E+10 
RCRIT! 10) =3.81 E+10 
RCRIT! 11 > =1.60 E+8 
RE = 6378165. 

SPD = 86400.0 

SQRDKl = 2.959122083 E-4 

STEPMX* 100.0 

STEPS = 1. 

TF1LE = 1. 

XDOT ( 1 ) * 1.0 
XPRIM! 2) = RMASSK1) 

XTOL = 5E-8 
WRITE OUTPUT TAPE 6,3 
3 FORMAT ( 15HOSTANDARO DATA.) 
RETURN 
ENO 
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c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


c 

c 


c 

c 


c 

c 


SUBROUTINE TESTTR 

SUBROUTINE TESTTR MAY BE CALLED FOR ONE OF TWO REASONS, (1) TO TEST FOR AND 
POSSIBLY TRANSLATE THE ORIGIN (WHEN IMODE IS + ) OR (2) TO CHANGE THE 
VARIABLES OF INTEGRATION (WHEN IMOOEIS ->. A TRANSLATION OF THE ORIGIN 
OCCURS WHEN THE OBJECT MOVES INTO A SPHERE OF INFLUENCE WHICH IS SMALLER 
THAN ANY OTHERS IT MAY ALSO BE IN. WHEN THIS HAPPENS, THE NAME OF THE NEW 
ORIGIN IS MOVED TO THE BEGINNING OF THE BNAME LIST AND ORDER IS 
CALLEO TO REORDER THE BNAME LIST. 

COMMON C 


DIMENSION A( 600) , B(700), C(4000), 

1 XPRIM(100,2)»XPRIM8( 100,2) , XWHQLE ( 6),VEFM(3,8),VX(3), 

20RBELS ( 6 ) , BMASS ( 8) , BNAME (8),RB(3,8), RBCR IT ( 8 ) , R( 8 ) 


EQUIVALENCE 

1 (A ,C 

2 ( B ,C 
3( CHAMP ,B 
4( IMODE , A 
5 ( RBCR I T , B 
6(R ,B 
7 ( TMAX ,B 
8 ( TTEST , A 
9 ( XPR IM ,C 

EQUIVALENCE 
1 ( QUTPOT , B 


( ID), ( AMC , B 
(HID), (BMASS , B 
( 25) ) , ( DELT ,B 
( D ) , ( NBODYS, 8 
{ 145)), (RB ,B 
( 102 ) ) , ( SQRDK ,B 
( 4) ) , ( TRSFER, B 
I 54 ) ) , ( VEFM ,B 
( 71 D ) , ( XPR IMB , C 

( 399)) 


( 87 ) ) , ( ASYMPT , A 
< 137) ) , (BNAME ,B 
( D ) , ( GK2M ,B 
( 41) ) , ( ORBELS, B 
( 193)), (REVS , A 
( 35) ), (TABLE ,C 
( 8 ) ) , ( TRU ,B 
( 241) ) , ( VX , B 
( 911) ) , (XWH0L6,B 


( 7)), 

( 122 )), 
( 36)), 

( 116)), 
( 48)), 

(1911)), 
( 40)), 

( 92)), 

( HOD 


IMODE = IMODE 
IF (IMODE) 12,12,1 

IF IMODE IS +, TEST FOR TRANSLATION OF THE ORIGIN. 

1 CHAMP= l.E+30 

DO 4 JB=L, NBODYS 

IF ( R ( JB )— RBCR I T ( JB ) ) 2,4,4 

2 IF ( CHAMP-RBCR IT ( JB) ) 4,4,3 

3 CHAMP = RBCR IT ( JB) 

NCHAMP * JB 

4 CONTINUE 

IF ( NCHAMP— 1 ) 26,26,5 

5 TRSFER = 1.0 

8 BTEMP = BNAME ( 1 ) 

BNAME(l) = BNAME ( NCHAMP ) 

BNAME ( NCHAMP ) = BTEMP 
TTEST = 0. 

REVS = 0. 

IF (OUTPOT) 6,9,6 

9 WRITE OUTPUT TAPE 6, 10, BNAME ( NCHAMP ), BNAME ( 1 ) 

10 FORMAT ( 28HOOR IG IN IS TRANSLATING FROM A6,4H TO A6) 

6 CALL EPHMRS 
DO 11 K= 1 , 3 

VX( K ) = VX(K)-VEFM(K, NCHAMP) 

RB ( K > = RB(K, NCHAMP) 

XPR I M( K+2, D— VX( K) 

XPRIMtK+5, 1)=RB(K) 

XPR I MB (K+2 , 1) = 0. 

XPR I MB ( K+5 , 1 ) = 0. 

XWHOLE C K > — .V X ( K ) 

11 XWHOLEi K+3) = RB( K ) 

GO TO 20 


IF IMODE IS -, CHANGE THE VARIABLES OF INTEGRATION. 

12 DO 13 K=l» 3 

XPR IM(K+2, 1 ) =XWHOLE< K) 

XPRIM( K+ 5,1) =X WHOLE ( K+3) 

XPR IMB ( K+2 , D = 0. 

XPR I MB ( K+5, 1 ) = 0. 

VX(K) * XWHOLE ( K ) 

13 RB(K) = XWHOLE ( K+3 ) 

GO TO (16, 14, 15), IMODE 

14 CODE * 5H0RBIT 
IMODE = 1 

GO TO 18 

15 IMODE = 3 
GO TO 17 

16 IMODE = 2 

17 CODE = 6HRECTAN 

18 NCHAMP = 1 

IF (OUTPOT) 20,7,20 
7 WRITE OUTPUT TAPE 6, 19, CODE 

19 FORMAT ( 33H0INTEGRATI0N MODE IS CHANGING TO A6) 

20 GO TO (21,26,26) , IMODE 

21 CALL CONVT 1 ( VX, AMC ) 

GK2M= SQRDK* ( BMASS (NCHAMP )+XPRlM(2,l) /I .9866 E+30) 

30 CALL C0NVT2 

IF ORIGIN TRANSLATION CAUSES PATH TO LIE NEAR AN ASYMPTOTE, CHANGE 
INTEGRATION VARIABLES TO RECTANGULAR IF THEY ARE ORBIT ELEMENTS. 

IF ( ORBELS ( 1 ) — 1 • ) 24,24,22 

22 IF ( ABSF ( TRU )~2. 3/ SQRTF( ORBELS ( 1 )) ) 24,24,23 

23 ASYMPT = 1.0 
GO TO 15 

24 DO 25 J=l,6 

25 XPRIM( J+2, D = ORBELS! J) 

26 IF (TRSFER) 27,28,27 

27 CALL INPUT l 101 , C, TABLE ) 

29 CALL ORDER 

28 RETURN 
END 



SUBROUTINE THRUST 

C THIS ROUTINE COMPUTES X,Y,Z THRUST ACCELERATIONS. THE THRUST VECTOR IS 

C ASSUMED COINCIDENT WITH THE LONGITUNDINAL AXIS OF THE VEHICLE, WHICH IS 

C ORIENTED TO THE RELATIVE WIND VELOCITY BY THE ANGLE OF ATTACK (ALPHA) AND 

C THE ROLL ANGLE (BETA). ALPHA IS ASSUMED TO BE A QUADRATIC FUNCTION OF TIME 

C WHEREAS BETA IS ASSUMED TO BE CONSTANT. 

C RE VOL V IS THE EARTHS ROTATION RATE IN RADIANS/SEC ( 7. 292 l 1 585E-5 ) AND THE 

C FACTOR 8589934592.= 2»*33 IS REMOVED TO PREVENT OVERFLOW. 

C 

COMMON C 


C 


C 


C 


DIMENSION A (600) , B(700), C(4000), 

1 FORCE! 3) » PAR ( 3 ) , VATM(3), P(3), IND( 3) , RAMC( 5 ) ,RB( 3) , X( 100 ) 


EQUIVALENCE 

1 ( A , C 

2 ( B ,C 

3 ( COSBET t B 
41F0RCE ,8 
5( PMAGN , B 
6IPUSH0 , B 
7 ( RATMOS , 8 
8 ( R , B 

9 ( S INALF, B 

EQUIVALENCE 
I ( VQ ,B 
2 ( VY , B 


( 1 I ) ) , ( AEX IT ,8 
(1111) ), (BETA , A 
< 49) ) » ( EXITA , B 
( 66)), (I NO , A 
( 50)), (PRESS , B 
( 391)), (PUSH • A 
( 23)), (RB , B 
( 102 ) ) » ( RSQRD , B 
( 46) ) , ( S1NBET , B 

( 100) >, (VQSQRD.B 
( 93)), (V2 ,B 


( 3)), (ALPHA , A ( 49)) 

( 50 ) ) , ( COSALF , B ( 48)) 

( 392)), (FLOW ,B ( 5)) 

( 60)), (PAR , B ( 60)) 

( 33)), (P , B ( 84)) 

( 166) ), ( RAMC ,B ( 393)) 

( 193) ),(REVOLV,B ( 2D) 

( 45)), (SIMP , B l 2)) 

( 47) ) , (VATM ,B ( 97) ) 


( 101)), (VX , B ( 92)), 

( 94)), (X ,B ( 401)) 


SINBET = SINF(BETA/57. 2957795) 

COSBET = C0SF(8ETA/57. 2957795) 

VATM ( 1 ) = VX+KEVOL V*RB ( 2 ) 

VATM ( 2 ) =VY— REVOLV*RB ( 1 ) 

VATM ( 3 ) =VZ 

3 CALL CONVTK VATM, RAMC) 

4 ALPHA = QUAQIXJ l),l)/57. 2957795 
SINALF=SINF( ALPHA) 

COSALF=COSF { ALPHA ) 

00 1 J 1=1 * 3 
J2= IND 1 J L) 

J3= I NO ( J2 ) 

1 PlJl) = ( VATM( J2 )*RAMC( J3)-VATM( J3 ) *RAMC( J2 ) )/ 8589934592. 

PMAGN= SQRTF(P(1)»P(1)+P(2)*P(2)+P(3)»P(3) ) 

PUSH = PUSHO— £XITA*PRESS 
TDPMAG = PUSH/ PMAGN/ X( 2) 

R4 = SINBET/VQ 

R5 = CQSALF/RAMC ( 4 ) 

00 2 Jl=l»3 
J2=IND( Jl) 

J3=IND( J2) 

PAR( J1)=P( J2)*VATM( J3)-P< J3)»VATM( J2> 

2 FORCE ( Jl ) = TOPMAG«(SINALF*(COSBET*P( J1)+R4*PAR( Jl) )-R5*(P( J2)* 

1 RAMC(J3)-P( J3)*RAMC( J2 ) ) ) 

RETURN 

END 


SUBROUTINE TUDES 

C THIS ROUTINE COMPUTES THE RECTANGULAR POSITION AND VELOCITY COMPONENTS 

C WITH RESPECT TO THE EARTH MEAN EQUINOX AND EQUATOR OF 1950.0 FROM THE 

C LATITUDE, LONGITUDE, AZIMUTH, ELEVATION, ALTITUDE, TOTAL VELOCITY, AND 

C TIME. ALSO, WHEN TKICK DOES NOT EQUAL ZERO, A NON-DRAG VERTICAL STEP OF 

C SIZE TKICK IS MADE IN CLOSED FORM (STATEMENTS 2 TO 4). THE INTEGRATION 

C WILL THEN BEGIN AT TIME EQUAL TO TIME+TKICK WITH THE ORIENTATION SPECIFIED 

C BY THE ABOVE FOUR ANGLES AND THE COMPUTED VALUES OF ALTITUDE AND VELOCITY. 

C FOR THE CLOSED FORM APPROXIMATION, A CONSTANT FLOW RATE (FLOW), VACUUM 

C SPECIFIC IMPULSE (SIMP) AND ENGINE EXIT AREA (AEXIT) ARE ASSUMED KNOWN. 

C THE ATMOSPHfcRIC PRESSURE IS TAKEN TO BE THE SEA LEVEL VALUE. 

C 

COMMON C 
C 

DIMENSION A ( 600 ) , B(700), C(4000», 

1 S INA( 4) , COSA ( 4 ) , ANGLEB< 4) , XPRIMI200) 

C 


EQUIVALENCE 
I ( A ,C 

( ID), (AEXIT 

» B 

( 3)), (ALT , A 

( 4) ) 

2 ( AZ 1 , A 

( 35)), (B 

,C 

(1111) ) , ( DTOFF J , A 

( 23) ) 

3 ( ELE V , A 

( 36 ) ) , ( FLOW 

, B 

( 5)),(GK2M , 6 

( 36)) 

4( LAT , A 

( 33)), (LONG 

, A 

( 34) ) , ( OBL AT J , A 

( 26) ) 

5 ( OBLATN, A 

( 40)), (RE 

, A 

( 25) ) , (RESURD, B 

( 7) ) 

6(R0TAT6,A 

( 39)), (SIMP 

,B 

( 2 ) ) , ( SPD , A 

( 44) ) 

7 ( STEPGO, A 

( 41 ) ) , ( STEPNO 

,A 

( 42) ) , (TKICK , A 

( 15) ) 

8 ( TOFFT , A 

( 24) ) , ( VEL 

, A 

( 37 ) ) , ( XPR IM ,C 

( 71 1) ) 

9 ( OUTPOT , 8 ( 399)) 

EQUIVALENCE (QLAT , LAT ) , ( QLONG, LONG) 



C 
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ALT1 = 0. 

V£L1 = VEL 
DELI = 0. 

DEL - 0. 

ASSIGN 1 TO NGO 

DAYS = DTOFFJ - 2433282*5 

GREEN - MODP( 100*0755426+* 98 5647346DAYS+2. 9015E-13DA YS*»2 
1+7.29211585E-5*(T0FFT*SP0+XPRIM(1) ) *57.2957795,360. ) 

SINA(l) = SINF(QLAT/57. 2957795) 

IF ( OBLATN) 102,101,102 

101 RADIUS * RE t ALT 
GO TO 8 

102 RADIUS=6356783.28/SQRTF( • 99 3 3065 783+. 00669342 1685»S I NA I l)**2)+ALT 
GO TO 8 

1 XPR I M ( 6 ) * COSA ( 2 ) *COSA( 1) ‘RADIUS 
XPRIMt 7 ) = SINA(2) *CQSA( 1) «R ADI US 
XPR IH ( 8 ) = S INA( 1) *RADIUS 
RMASSO = XPRIM12) 

XPR I M ( 2 ) = XPRIM(2)-FL0W*TKICK 
IF (OUTPOT) 12,11,12 

11 WRITE OUTPUT TAPE 6, 3 , STEPGO, STEPNO, LAT, LONG, A2 I , ELE V, ALT , XPR I M l 
11) , VEL, RMASSO, (XPRIM( J), J=6,8) 

3 FORMAT (6H0STEP=F5.»2H +F4.,4X,6H LAT.=1PG15. 8, 7H LONG. =G 15 . 8 , 6H AZ 
1I.=G15.8,7H ELEV. = G15. 8, 6H ALT.=G15. 8/6H T IME=G1 5 . 8 , 6H VEL.=G15.8, 
67H RMASS=G15.8,4X,2HX=G15.8,5X,2HY=G15.8,4X,2HZ=G15.8) 

12 IF (TKICK) 2,50,2 

2 XPRIM(l) = XPRIM(1)+TKICK 
81 = LOGF ( RMASSO /XPR IM( 2) ) 

SIMPSL = S1MP-AEXIT/FL0W*10332.275 
VEL 1 = VEL+SIMPSL*9.80665*BL-G*TKICK 

ALT1 = TK ICK* ( VEL-G»TK ICK/2.+9. 80665+S IMPSL* { 1«-B1*XPRIM(2)/ 
l ( RMASSO- XPR IM ( 2 ) ) ) ) 

4 RADIUS = RADIUS + ALT1 

GREEN = GREEN + 7. 29211585E-5»TK1CK«57. 2957795 
ASSIGN 5 TO NGO 
GO TO 8 

5 XPRIM16) = C0SA(2)*C0SAU)*RAUIUS 
XPRIMI7) = SINA{2)*C0SA< 1)*RA0IUS 
XPR I M( 8 ) = S INA ( 1 ) *RAD I US 

50 IF (OBLATN) 6,7,6 

6 DELI = ATANF ( ( C2— 1 • )/(C3-l.)*SINA( 1) /COSA ( 1) )*57.2957795-QLAT 

7 DEL2 = RAD I US/ G* SINAI 1 )*COSA( I )*ROTATE*ROT ATE* 57. 29577951. 

DEL = DELI + DEL2 

ASSIGN 10 TO NGO 

8 ANGLEB(l) = QLAT + DEL 
ANGLEB12) = QLONG ♦ GREEN 
ANGLEB ( 3) = AZI 

ANGLEB( 4) = ELEV 
DO 9 1=1,4 

SINA(I) = SINF(ANGLEB( I)/57. 2957795) 

9 COSA ( I ) = COSF(ANGLEB( I>/57. 2957795) 

Cl = 5. *RESQRD/RADIUS/RADIUS*QBLAT J 
C2 = C1*(SINA( l)*SINA( 1 )— .6) 

C3 = Cl*(SINA(i)*SINA(l)~.2> 

G = GK2M/RAD IUS/RADIUS 
GO TO NGO, 11,5,10) 

10 C0S1 = COSA ( 1 ) *S INA ( 4 )— COSA( 4) *COSA ( 3) *S INA ( 1 ) 

C0S2 = COSAj 4)»SINA( 3) 

XPRIMC3) = VEL1*(CQS1*C0SA(2 )— C0S2*SINA ( 2) )-XPRIM(7)*R0TATE 
XPR I M ( 4 ) = VEL1*(C0SI*SINA(2) +C0S2*C0SA( 2 ) ) +XPRI M( 6 ) ‘ROTATE 
XPRIM{ 5) = VEL1*(SINA( 1 ) *S INA ( 4 ) +COSA ( 1 ) *C05A ( 3 ) *COSA ( 4 ) ) 

RETURN 

END 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

C 

C 

C 

C 

c 

c 

C 

c 

c 

c 

c 

c 

C 

c 

c 

C 

c 

c 

C 


SUBROUTINE TAPE 

SUBROUTINE TAPE USES THE MASTER MERGED EPHEMER I DES TAPE (TAPE 9 AT LEWIS) 
TO COMPILE A WORKING EPHEMER IS TAPE (TAPE 3 AT LEWIS) WHICH CONTAINS ONLY 
THAT DATA NEEDED AT EXECUTION TIME. THIS MINIMIZES TAPE HANDLING DURING 
EXECUTION. 2 EPHEMER I S FILES ARE ON TAPE 9, FIRST FILE HAS DATA ANO IS 
IDENTIFIED BY THE SECOND WORD OF EACH 254 WORD RECORD (FIRST WORD IS THE 
DUMMY FORTRAN COMPATIBLE WORD, SECOND W0R0=2). THE SECOND FILE IS ONLY 2 
WORDS LONG, FIRST WORD IS FORTRAN COMPATIBLE, SECOND W0RD=3I. 

MASTER FILE l -- PLANETS (EXCEPT MERCURY AND EARTH), SUN, MOON, AND 

EARTH-MOON BARYCENTER FROM SEPT. 25, I960 TO ABOUT 2000. 
EACH EPHEMER I S COMPILED REQUIRES A SET OF INPUT 300 DATA. THE FIRST PIECE 
OF DATA WRITTEN ON A FILE IS THE FILE IDENTIFICATION NUMBER, FILE. EACH 
FILE IS NUMBERED CONSECUTIVELY STARTING WITH FILE=1. SINCE MUUN DATA IS IN 
TERMS OF EARTH RADII, THE CONVERSION OF MOON DATA TO A.U. IS MADE BEFORE 
WRITING ON TAPE 3. THE COMMON USED IN SUBROUTINE TAPE IS LOCAL AND ALL 
BUT TAPE3 IS CLEARED BY A FINAL CLEARING LOOP. 

FUNCTION COMPARE ( A , B ) IS EQUIVALENT TO (A-B) BUT WILL NOT OVERFLOW. 

NORMAL INPUT - ELI ST, TBEGIN, TEND, TAPE3 

EL 1ST- THE BCD LIST OF EPHEMER I S OATA NAMES TO BE PLACED ON 

TAPE 3 . THE NAMES ARE READ FROM CARDS, AND IS USED TO 
MAKE THE TMAKE LIST. EL I ST IS NOT CHANGED IN STORAGE UNTIL 
THE FINAL CLEAR FOR THIS SUBROUTINE. 

TMAKE- THE LIST OF EPHEMERIS NAMES WITH DUPLICATES DROPPED AND 

ZERO SPACES CLOSED IN. AS THE EPHEMERIDES ARE FINISHED THE 
NAMES ARE ERRASED FROM THIS LIST. 

TMADE- LIKE TMAKE BUT IS HELD FOR OUTPUT. 

TBEGIN- THE BEGINNING DATE EXPRESSED AS A JULIAN DAY. 

TENO- ENDING DATE EXPRESSED AS A JULIAN DAY. 

INTVAL— THE APPROX. NUMBER OF OAYS COVERED BY ONE SET OF COEFF. IT 
IS USED TO OEC IDE WHICH DATA ARE TO BE ENTERED DOUBLE. THE 
DOUBLE ENTRIES PERMIT FASTER OPERATION IF REVERSAL OF 
INTEGRATION IS REQUIRED FOR ANY REASON. 

EDATE- JULIAN ENDING DATE FOR THE MASTER EPHEMERIS. 

ERTOAU- EARTH RADII PER A.U. 

COMMON C 
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c 


c 

8 


c 

c 

c 


c 

c 


c 

c 

c 


c 

c 

c 


c 

c 


c 


DIMENSION 

1 C (700), 

2 EDATE (12). 

3 EL I ST (11) t 

4 PNAME (30), 


TMAKE (12), 

I NTVAL (30), 
TMADE (12), 

T DATUM (252), 


LIST (30), 
KTAG (12), 
INTVA (2), 
DATUMT (21,12) 


EQUIVALENCE 

1( TAPE3, C ( 2) ) , ( ERTOAU, C ( 3)),( 
2( EL 1ST » C( 17) ) , ( TBEGIN,C( 29)), ( 
3< KHAMP , C ( 61)), t TMADE, C( 73)), ( 
41 EDATE,C(127) ), ( INTVAL,C( 157) ) , I 


KTAG, C ( 4 ) ) , ( F I L E , C( 16)), 
TEND,C( 30)), ( PNAME, C( 31)), 
TMAKE, CC 85) ) , ( TDATUM, C ( 441 ) ) , 
INTVA, C( 156) ), (DATUMT, C( 189) ) 


COMPARF( A, 8) = ( A+B) *{-( A*B) ) 
REWIND 3 
DO 1 K= 1 , 4000 
1 C(K) = 0.0 


THE FOLLOWING NH STATEMENTS LOAD THE BODY NAMES INTO THE MACHINE. 

NOTE. THE EARTH IS NOT IN THIS LIST l NO EPHEMER I S FOR EARTH.) 

PNAME(l) = 3HSUN 

PNAME ( 2 ) = 6HMERCUR 

PNAME( 3) = 5HVENUS 

PNAME( 4 ) = 4HMARS 

PNAME ( 5) = 6HJUPITE 

PNAME ( 6 ) = 6HSATURN 

PNAME ( 7 ) = 6HURANUS 

PNAME! 8) = 6HNEPTUN 

PNAME( 9) = 5HPLU1U 

PNAME( 10)= 4HMOON 

PNAME(11)= 6HEARTHM 


PART 2. SET UP JULIAN DATES ENDING EACH EPHEMERIS. 


EDATE(l) = 

2451872.5 

11/24/00 

EDATE( 3) = 

2451848.5 

10/31/00 

EOATE( 4) = 

2451020.5 

7/26/98 

EOATE ( 5 ) = 

2 473520.5 

2060 

EDATEl 6) = 

2473520.5 

2060 

EDATE( 7 ) = 

2473520.5 

2060 

6DATE( 8) = 

2473520.5 

2060 

EDATE! 9) = 

2473520.5 

2060 

EDATE! 10)= 

2440916.5 

11/26/70 

EDATEl 1 1 )= 

2451848.5 

10/31/00 

INTVA = 30000 


INTVAL(l) 

= 8 


INT VAL ( 2 ) 

= 5 


INT VAL ( 3 ) 

= 15 


INTVAL ( 4) 

= 44 


INTVALl 5) 

= 330 


INTVAL ( 6 ) 

= 825 


INTVAL (7) 

= 1211 


INTVAL! 8) 

= 1172 


INTVAL ( 9 ) 

= 1101 


INTVAL (10) 

= 2 


INTVALt 11) 

= 15 


FILE = 1. 
ERTOAU = 4 

.26546512 E-5 



2 MOON = 0 
LI = 1 


PART 28. CALL INPUT AND SEE IF TAPE IS TO BE MADE. INPUT MUST ALWAYS 
MAKE TAPE3=0.0 IF TAPE IS TO BE MADE. 

TAPE3 = 3. 

8 CALL INPUT ( 300,C ,L 1ST) 

IF ( TAPE3) 63,3,63 

3 IF (FILE-1.) 20,10,20 

10 CALL SKF ILE( 9,2) 

PART 3. TAPE IS TO BE MADE SO MOVE EPHEMER I S LIST TO TMAKE AND 
TO TMADE (FOR OUTPUT), CANCEL ANY ZERO OR DUPLICATE NAMES. 

20 KOUNT = 1 
DO 6 K= L , 11 
TMAKE(K) = 0. 

TMADE ( K) = 0. 

4 DO 5 J=l, KOUNT 

IF (COMPARE! EL I ST(K) » TMAKE (J-l) ) ) 5,6,5 

5 CONTINUE 

TMAKE ( KOUNT ) = ELIST(K) 

TMADE I KOUNT ) = ELIST(K) 

KOUNT = KOUNT+l 

6 CONTINUE 

KOUNT = KOUNT - 1 

PART 4. FIND INPUT ERRORS. 

7 IF(TBEGIN-2437202.5) 66,9,9 

9 KM = 2 

11 ERROR «= 0. 

WRITE TAPE 3, FILE 
DO 21 J=l, KOUNT 
KTAG(J) = 0 

12 DO 13 K= l , 20 

IF ( COMPARF ( PNAME ( K ), TMAKE ( J ) ) ) 13,16,13 

13 CONTINUE 


C PART 5. PRINTS OUT THE MISSPELLED NAMES AND OTHER ERRORS. 

14 PRINT 15, TMAKE ( J ) , T8EGIN, TEND 

WRITE OUTPUT TAPE 6 , 15, TMAKE ( J ) , TBEGIN, TEND, ( PNAME ( K ) , 
lEDATE(K) ,K=1,20) 

15 FORMAT ( 23H TROUBLE ON TAPE 3 MAKE / 2X,A6,10H T 8EGIN= F10.1,8H 
1 T END= F10.1//2(2X,A6,F20.1) ) 

ERROR = 1. 

GO TO 21 
C 



C PART 4B. CHfcCKS OATES AND STORES INDEX FOR MOON SO THAT EARTH 

C RADII CAN BE CQNVERT60 TO A.U. 

16 IF ( 10— K) 18,17,18 

17 MOON = J 

18 KTAG(J) = K 

19 IF (EDATE(K)- TEND) 14,21,21 

21 CONTINUE 

ASSIGN 36 TO NS1 
IF (ERROR) 22,22,68 

C 

C PART 6. FIX UP A TAG ( KTAG) TO INDICATE WHETHER TO ENTER DATA DOUBLE OR 

C NOT. KHAMP WILL BE SHORTEST INTERVAL. KTAG WILL BE NON-ZERO IF 

C ANY DATA ENTERS MORE THAN ONCE FOR 10 ENTRIES OF THE MOST 

C FREQUENT DATA. 

22 KHAMP * INTVAL(O) 

DO 23 J*l, KOUNT 
K = KTAG(J) 

KHAMP = XM INOF ( KHAMP , INTVAL(K) ) 

23 CONTINUE 

KHAMP = KHAMP »10 
DO 24 J=1 , KOUNT 

K = KTAG ( J ) 

24 KTAG(J) = INTVAL(K) / KHAMP 
C 

C PART 7. LOCATE FILE 2 ON TAPE 9. 

25 READ TAPE 9, KF1LE 

26 IF (KM-KFILE) 27,31,29 

27 IF (KFILE - 3) 28,28,29 

28 BACKSPACE 9 
BACKSPACE 9 
CALL BSF1L£( 9) 

GO TO 25 

C BY PASS A FILE. 

29 CALL SKF IL6 ( 9 ) 

GO TO 25 

C 

C PART 8. THIS IS CORRECT FILE ON TAPE 9, READ DATA. THERE CAN BE UP 

C TO 12 SETS OF DATA PER RECORD. A SET OF DATA IS 21 WORDS. 

31 BACKSPACE 9 

32 READ TAPE 9, KTAPE, ( TDATUM< I ) , 1*1,252) 

GO TO NS1, (36,46) 

C 

C PART 9. IS THIS A SATISFACTORY STARTING POINT, QUESTION MARK. 

C THE 1ST SET OF DATA FOR EACH PLANET MUST PRE DATE TBEGIN. 

C PART 9 IS EXECUTED ONLY ONCE. 

36 DO 42 J=L I , KOUNT 
DO 37 K=l,232,21 

IF ( COMPARE ( TDATUM( K) » TMAKE ( J ) ) ) 37,39,37 

37 CONTINUE 

38 LI = J 
BACKSPACE 9 
BACKSPACE 9 
GO TO 32 

39 IF ( TDATUMIK+l )-TDATUM( K+2I-TBEGIN ) 40,40,38 

40 DO 41 KJ*1 ,21 
K1 * K + KJ — 1 

41 DATUMT(KJ»J) = TDATUM(Kl) 

42 CONTINUE 

IF (MOON) 43,45,43 

43 DO 44 K J=4» 21 

44 DATUMT I KJ, MOON) = DATUMTl KJ , MOON) *ERTOAU 

45 ASSIGN 46 TO NSI 
C 

C PART 10. PUT AWAY NEEDED DATA. TEST NAME, TIME OF BEGIN AND END. DO NOT 
C WRITE TAPE 3 UNTIL TBEGIN PREDATES THE END OF THE FITTED 

C INTERVAL. 50 REPEATS OLD DATA, 57 WRITES NEW DATA. THE NAMES 

C ARE ERASED FROM TMAKE AS SOON AS THE DATA POST DATES TEND. WHEN 

C ALL NAMES ARE GONE, RETURN TO INPUT 300 TO SEE IF ANOTHER 

C EPHEMER IS IS TO BE CONSTRUCTED. 

46 DO 65 K-1,232, 21 
DO 47 J=l, KOUNT 

IF (COMPARE ( TDATUMI K ) , TMAKE < J ) ) ) 47,48,47 

47 CONTINUE 
GO TO 65 

48 SWT = TBEGIN-TDATUMI K+l)— TDATUM( K+2) 

IF (SWT) 49,49,52 

49 IF(KTAGIJ)) 50,52,50 

50 WRITE TAPE 3, ( DATUMT( KJ, J) , KJ*1,21) 

52 00 53 KJ*1, 21 

53 DATUMT(KJ,J) * TDATUM(Kl-I) 

IF (J-MOON) 56,54,56 

54 DO 55 KJ * 4,21 

55 OATUMT ( K J , J ) * DATUMT ( KJ, J ) *ERTOAU 

56 IF (SWT) 57,57,58 

57 WRITE TAPE 3, ( DATUMT ( KJ, J ) ,KJ*1 , 21 ) 

58 IF ( TEND— DATUMT ( 2 , J )— DATUMT ( 3, J ) ) 59,59,65 

59 TMAKE ( J ) = 0. 

00 60 KK=1, KOUNT 
IF (TMAKE(KK)) 65,60,65 

60 CONTINUE 

WRITE OUTPUT TAPE 6, 61, F ILE, TBEGIN, TEND, KOUNT, ( TMAOE ( KK) , 

1KK=I, KOUNT) 

61 FORMAT ( 28H0EPHEMERIS COMPLETED, FILE=F3.,6H, FROM F10.1,3H TO 
1 F10.1, 4H FOR 12, 18H BODIES AS FOLLOWS / 12(2X,A6)> 

FILE * FILE + 1. 

END FILE 3 
GO TO 2 

63 WRITE TAPE 3, FILE 
REWIND 3 

REWIND 9 
TAPE3 = 3. 

DO 64 J=3, 4000 

64 C(J) = 0. 

RETURN 


C 



65 CONTINUE 
GO TO 32 

66 PRINT 67, T0EGIN 

WRITE OUTPUT TAPE 6,67,TBEGIN 

67 FORMAT ( 33H T BEGIN PREDATES 2437202.5, IT IS FlO.l) 

68 CONTINUE 
REMIND 9 
END 

REM BSF ILE ( 1 , J ) BACKSPACES TAPE I UNTIL IT IS POSITIONED JUST 
REM BEHIND THE J TH EOF MARK. 

REM 

ENTRY BSF ILE 

PZE 

PZE 

PZE 

BCD IBSFILE 


BSF ILE 

SXD 

*—4,1 


SXD 

*-4,2 


SXD 

*-4,4 


XEC* 

SITES) 


TSX 

SUER) ,4 


LXD 

BSFILE-2, 4 


CLA* 

1*4 


TSX 

$( I0S),4 


CLA* 

S(RDS) 


STA 

BSF 


ANA 

A07000 


STA 

BTT1 


STA 

BTT2 


LXD 

BSFILE-2, 4 


CAL 

2,4 


ANA 

=0777777700000 


ERA 

=0007400000000 


TNZ 

ONEARG 


CLA* 

2,4 


TZE 

BACK 


PDX 

tl 


AXC 

* + 1,4 


XEC* 

S(TCO) 

BTT1 

BTTA 

** 


TRA 

* + i 

BSF 

BSFA 

*» 


XEC* 

SUDS) 


XEC* 

S(USR) 


AXC 

* + 1,4 


XEC* 

$<TC0) 

BTT2 

BTTA 

• • 


TRA 

CHECK 


T I X 

BSF, 1,1 


XEC* 

$ ( RDS ) 

BACK 

AXC 

*♦1,4 


XEC* 

SITCO) 


AXC 

*♦1,4 


XEC* 

S(TRC) 


NOP 



AXC 

*♦1,4 


XEC* 

SITEF) 


NOP 



LXD 

BSF ILE-4, 1 


LXD 

BSF ILE— 3, 2 


LXD 

BSFILE-2, 4 


TRA 

3,4 

CHECK 

TXL 

BACK, 1,1 


LXO 

BSFILE-2, 4 


CLA 

ERR+l 


STO 

0 


CLA* 

1,4 


LDQ* 

2,4 

ERR 

TSX 

8,4 


TXI 

BACK, 0, 14 


PZE 

BSFILE-2, 0, ERR 


ONEARG CLA BSFILE-2 
ADD =01000000 
STO BSFILE-2 
LXD CHECK , 1 
TRA BTT1-2 
A07000 OCT 7000 
END 
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REM SKF ILE ( I » J I SKIPS TAPE I OVER J EOF MARKS. 
REM 

ENTRY SKF ILE 



PZE 




PZE 




PZE 



SKF ILE 

SXD 

*-3,1 



SXD 

•-3,2 



SXO 

*-3,4 



TSX 

$( RER) ,4 

CHECK LAST READ 


TEFA 

» + l 



TEF8 

*♦1 



LXD 

SKF ILE— 1,4 



CLA* 

1,4 

PICK UP THE TPE NUMBER 


TSX 

$( 10S),4 

SET UP THE TAPE ADDRESSES 


LXD 

SKF ILE- 1,4 

LOAD IT AGAIN — MAN 


CAL 

2,4 

IS THERE A SECOND ARGUMENT 


ANA 

=0777777700000 


ERA 

=0007400000000 



TNZ 

ONEARG 

no second Argument 

GOGO 

CLA* 

2,4 

PICK UP THE SECOND ARGUMENT 


TZE 

BUMP+1 

DIO SOME DUMMY WANT NO FILES 

LOOP 

SUB 

=01000000 


RDS 

XEC* 

$ ( RDS ) 

READ THE TAPE 


TCOA 

• 



TCOB 

• 



TEFA 

bump 

DID WE HIT 


TEFB 

BUMP 

AN END OF FILE 


TRA 

RDS 

GO READ SOME MORE 

BUMP 

TNZ 

LOOP 



LXD 

SKF ILE— 3, 1 



LXD 

SKF ILE-2 , 2 



LXD 

SKF ILE— 1, 4 



NOP 

TRCA 

* + l 

TURN OFF TAPE CHECK 


TRCB 

* + l 



TRA 

3,4 


ONEARG 

CLA 

SKFILE-1 



ADD 

=01000000 

SET UP XR4 FOR PROPER RETURN 


STO 

SKFILE-1 



PXD 

0,,0 

SET UP FOR ONE FILE 


TRA 

RDS 



ENO 




COUNT 

1200 



REM INPUT ROUTINE USING ARITHMETIC STATEMENTS. CF NASA TN D-1092 
L8L INPUT, 6 

ENTRY INPUT 

REM THIS IS SUBROUTINE INPUT. ITS CALLING SEQUENCE 

REM CONTAINS THREE ARGUMENTS AN IDENTIFICATION 

REM CODE NUMBER, THE FIRST LOCATION RELATIVE TO WHICH 
REM ALL DATA IS TO BE LOADED, AND THE FIRST LOCATION 
REM OF A TABLE TO BE USEO BY THE ROUTINE. 

REM 

REM 

REM INCLUDED IN THIS ASSEMBLY ARE SUBROUTINES 


REM 

1 INPUT 


REM 

2 CHRCTR 


REM 

3 CLEAR 


REM 

4 COMPAR 


REM 

5 ERROR 


REM 

6 LOOK 


REM 

7 NAME 


REM 

8 NUMBR 


REM 

9 STORE 


REM 

10 TABLE 


REM 

11 TEST 


REM 

12 ACCUM, 

FIX, FLT , BINARY 

REM 

13 PRINX 


REM 

14 READ. 


REM 



INTAPE PZE 

0 » , 7 

LEWIS INPUT TAPE NOT STD. 

OUTAPE PZE 

0, ,6 

FORTRAN STANDARD OUTPUT TAPE 

INOX PZE 


STORAGE FOR IRA 

PZE 


IRB 

PZE 


IRC 

BCI 

1, INPUT 


INPUT SXO 

INDX, 1 

SAVE INDEX REGISTER A. 

SXO 

I NUX+ 1 , 2 

SAVE INDEX REGISTER B. 

SXD 

INDX+2,4 

SAVE INDEX REGISTER C. 

NZT* 

1,4 

IF THE IDENTIFICATION NUMBER IS Z 

TRA 

4,4 

RETURN TO THE CALLING PROGRAM. 

CLA 

= 1835 


ADD 

2,4 

2,4 IS THE BASE LOCATION. 

STA 

SET 


STA 

LOCI 


STA 

L0C4 


CLA 

TSXBS 

OPEN BACKSPACE GATE 

STO* 

$ I L INK ) 

CALL CHAIN WILL BACKSPACE 

LOCA CLA 

1,4 

1,4 IS THE IDENTIFICATION NUMBER. 

STA 

NREG1 


AXT 

36,1 

INITIALIZE 36 

STZ 

1*1,1 

LOCATIONS 

T I X 

•-1,1,1 

TO ZERO. 

STO 

IL0C1 

MAKE NON* ZERO. 

CLA 

3,4 

3,4 IS THE LOCATION OF THE TABLE. 

STA 

LOCFC 

PREPARE 

STA 

NREG1-1 


ADD 

= 1035 

THE 

STA 

LOCFA 

ARGUMENT STORAGES 

STA 

LOCKL 


TSX 

CLEAR, 4 

CLEAR THE VAR REGION. 


00020 

00030 

00040 

00050 

00060 

00070 

00080 

00090 

00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 


00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 

00410 

00420 

00430 

00440 

00450 

00460 

00470 

00480 

00490 

00500 

00510 

00520 

00530 

00540 

00550 

00560 

00570 



L0CA1 

CLA 

=0076100000000 INHIBIT READING UNTIL 

00580 


STO 

READ. 

ARRAY RECORD REFRESHED 

00590 


AXT 

A3, 2 

43 FORCES RECORD TO BE FILLED 

00600 


SXD 

1,2 

IN CHRCTR 

00610 


RE* 

LOOK AT THE FIRST CHARACTER ON THE FIRST CARD 

00620 


REM 

IN SEARCH OF A $ 

SIGN. 

00630 

LQCAA 

TSX 

CHRCTR. 4 


00640 


SUB 

=h0000$0 

CHECK FOR A $ SIGN 

00650 

LOG A. 

STO 

WORD 


00660 


TSX 

COMPAR, 4 


00670 


OCT 

242517630000 

D, E, FILE FLAG, T 

00680 


LXA 

NREG1 ,4 

ZERO IF $D HAS BEEN READ. 

00690 


TXL 

*+2,4,0 


00700 


TXI 

*+1,2,4 

BEFORE $D ADD 4 TO INDEX 2. 

00710 


TXH 

ERRU, 2, 7 

JUNK 

00720 


TXH 

SGNOUT ,2,6 

$17 BEFORE $D. FILE FLAG. OFF 

00730 


TXL 

*+3,2,5 

$E BEFORE $D 

00740 


TSX 

READ. +1,4 

CRASH READ GATE 

00750 


TRA 

L0CA1 

SHOULD NOW HAVE SO CARD 

00760 


TXH 

LOCAO, 2,4 

FIRST $D. 

00770 


TXH 

LOCAJ ,2,3 

$T AFTER $D. 

00780 


TXH 

LOCCK ,2,2 

$17 AFTER $D. FILE FLAG 

00790 


TXH 

LOCBG, 2,1 

$E AFTER $D. 

00800 


REM 



00810 

LOCAC 

LXA 

READ. ,4 

$D AFTER $D. TEST IF BUFFER 

00820 


TXL 

ERRU, 4,0 

OVERWRITTEN 

00830 


REM 

THIS IS THE PROGRAM RETURN. 

00840 

RTN 

LXD 

INOX, 1 

RESET INDEX A. 

00850 


LXO 

INUX+1,2 

RESET INDEX B. 

00860 


LXD 

INuX+2,4 

RESET INDEX C. 

00870 


TRA 

4,4 

RETURN TO CALLING PROGRAM. 

00880 


REM 

HUNT FOR THE = SIGN OF THE $ DATA CARD. 

00890 

LOCAO 

CLA 

=0076100000000 INHIBIT READING UNTIL 

00900 


STO 

READ. 

$DATA FIELD SCANNED 

00910 


TSX 

CHRCTR, 4 


00920 


TSX 

COMPAR, 4 


00930 


BCI 

1, = 00000 


00940 


TRA 

*+3,2,2 


00950 


TRA 

ERKO 

JUNK 

00960 


TRA 

LOCAO 

ALPHABETIC 

00970 


TRA 

ERRD 

NUMERIC 

00980 


SXD 

ALF,4 

= SIGN 

00990 


REM 

USE ALF MODE TO 

FEST ALL CHARACTERS. 

01000 


REM 



01010 


REM 

COMES HERE WHEN > 

= SIGN HAS BEEN FOUND. GET THE 

01020 


REM 

IDENTIFICATION NUMBER FROM THE CARD. 

01030 

LOCAF 

LXD 

1,4 


01040 


TXH 

*+2,4,43 


01050 


TXH 

L0CAG,4,42 

CARD SCANNED OUT. 

01060 


TSX 

CHRCTR, 4 


01070 


TSX 

COMPAR, 4 


01080 


BCI 

1,,$+- 0 


01090 


TRA 

*+9,2,2 


01100 


TRA 

ERRM 

JUNK 

OHIO 


TRA 

ERRM 

ALPHABETIC 

01120 

L0CA6 

T6X 

BINARY, 4 

FORM BIN WD IN VAR 

01130 


TRA 

LOCAF 

BLANK 

01140 


SXD 

ERSW, 2 

MINUS SET TO BY PASS. 

01150 


TRA 

LOCAF 

PLUS NO EFFECT. 

01160 


STO 

SIGN 

DOLLARS 

01170 


REM 

COMES HERE TO CHECK THE REGION CODE ANO THE 

01180 


REM 

VALUE APPEARING ON THE $DATA CARD. 

01190 

L0CA6 

CLA 

VAR 

COMMA 

01200 


TZE 

ERRU 

DATA SET NO. MISSING 

01210 


ALS 

18 


01220 


STD 

• • 

SAVE IDENT AT TABLE ( 1) , 

01230 

NREG1 

SUB 

*• 

PLACE FIRST ARG IN THIS ADDRESS. 

01240 


TNZ 

RTN 

0 IF CALL CODE = $DATA CODE 

01250 


STZ 

ALF 

ALF = 0 MEANS NO ALF INFO. 

01260 


SXA 

NREG1 ,0 

INDICATE $DATA IS READ. 

01270 


REM 

INST. BELOW ALSO 

EXECUTED AT READ., PLACED THERE BY CHRCTR 

01280 

TSXRU 

TSX 

READ. +1,4 

HERE SNEAK PAST READ. GATE 

01290 


SXD 

TESTJK, 0 


01300 


TRA 

LOCAN 


01310 


REM 



01320 


REM 

COMES HERE IF IT 

WAS A $ TABLE CARD. 

01330 

L OCA J 

TSX 

TABLE, 4 


01340 


TRA 

L0CAN3 


01350 


REM 



01360 


REM 

COMES HERE IF AN 

ALPHABETIC CHARACTER WAS FOUND. 

01370 

LOCAK 

TSX 

NAME, 4 


01380 


TNZ 

SET-1 

ZERO MEANS ON LEFT OF = SIGN. 

01390 


LXD 

JK1 , 1 

IF JKl DIDNOT INCREASE THEN 

01400 

TESTJK 

TXL 

ERRL, 1 , ** 

AN = SIGN WAS NOT USED. 

01410 


SXD 

TESTJK, 2 

SAVE JKl FOR NEXT TEST. 

01420 


CLA 

ILOC 

SAVE SIGN OF TABLE ENTRY. 

01430 


STO 

I LOCI 


01440 


TRA 

L0CAN2 


01450 


REM 



01460 


LXD 

JK*2 

PREPARE TO ACCUMULATE THE NUMBERS 

01470 

SET 

CLA 

** , 2 

IN THE PSEUDO ACCUMULATOR. 

01480 


STO 

TEMP 


01490 


CLA 

ILOC 


01500 


TPL 

LOCAM 

MINUS MEANS FLOAT THE NUMBER. 

01510 


TSX 

FLT ,4 


01520 


TRA 

LOCAM 


01530 


REM 



01540 


REM 

COMES HERE IF NUMERIC FIELD. 

01550 

LOCAL 

TSX 

NUMBER, 4 


01560 


STO 

TEMP 


01570 



LOCAM 

TSX 

ACCUM.4 

ACCUMULATE RESULTS IN ACC. 


TSX 

CLEAR, 4 



LXA 

WORD , 4 



PXA 

0,4 

+ WORD IN ACC FOR LOCAR 


TXL 

LOCAR ,4,58 

NOT COMMA 


TXH 

LOCAR ,4, 59 

NOT COMMA 


LXO 

JK1,2 

COMMA 


CLA 

ACC 



STZ 

ACC 

INITIALIZE 


LOQ 

1 LOCI 

IS THIS VARIABLE FIXED POINT. 


TOP 

LOCI 

NEGATIVE IS FIXED POINT. 


TSX 

FIX, 4 


LOCI 

STO 

*#,2 

STORE THE NUMBER RELATIVE TO BASE 

LOCAN 

LXD 

JK1 , 2 


L0CAN1 

TXI 

*♦1,2,1 

RAISE STORING INDEX 8Y ONE. 

L0CAN2 

SXO 

JK1 ,2 

SAVE IT. 

L0CAN3 

LXD 

OPER , 1 

ANY OPERATORS LEFT OVER. 


TXL 

*+3,1,0 


ERRL 

TSX 

ERR0R,4 



BCI 

1 • 0 ( L > 



CLA 

ACC 

ANY DATA LEFT OVER. 


TNZ 

ERRL 



REM 




REM 

CALL THIS THE SWITCH HOUSE. 

LOCAO 

TSX 

CLEAR, 4 


LOCAP 

TSX 

CHRCTR»4 


LOCAQ 

TSX 

CQMPAR,4 



BCI 

1 , . (0000 



TRA 

*+6,2,2 



TRA 

LOCAR 

$D, $T , OR OPERATORS. 


TRA 

LOCAK 

ALPHABETIC 


TRA 

LOCAL 

NUMERIC 


TRA 

LOCAT 

I SIGN 


TRA 

LOCAL 

DECIMAL 

LQCAR 

LXO 

OPER, 1 

ANY OPERATORS LEFT OVER. 


TKH 

ERRL, 1,0 

HIGH MEANS ALREADY HAS OPERATOR. 


SUB 

a H0Q00$0 

SPLIT OFF $ FROM OTHERS 


tpl 

LOCA. 

IF + PROCESS $ TYPE CH 


REM WHAT KIND OF OPERATOR IS THIS. 


TSX 

COMPAR , 4 




BCI 

1 ,+-/*, 0 




TXH 

ERRL, 2, 5 

REMOVE THE JUNK. 



TXH 

LOCAN, 2, 4 

COMMA 



SXO 

OPER, 2 

SAVE REST, WILL BRANCH IN 

SUB 

ACCU 

TRA 

LOCAP 

AFTER BOTH OPERANDS HAVE 

BEEN 

FOUN 

REM 





REM 

COMES HERE IF 

THE OCT OR ALF MODE. 



TSX 

CHRCTR , 4 




TSX 

COMPAR, 4 




BCI 

l, JOAOOO 




TRA 

* + 5,2 




TRA 

ERRL 

JUNK 



TRA 

LOCAZ 

A CHARACTER 



TRA 

LOCAU 

0 CHARACTER 



REM 






REM COMES HERE IF EMPTY PARENTHESIS WERE FOUNO. 



TSX 

CHRCTR, 4 

) SIGN, GET NEXT CHARACTER, 


TQP 

*+2 

MINUS FOR NEW CARD 


TSX 

TEST, 4 

INSERT COMMA IF NEEDED. 


CLA 

I LOCI 



STO 

ILOC 

PREPARE TO GET VALUE OF 


LXD 

JK1 ,2 

CURRENT LEFT SIDE. 


TRA 

SET 



REM 

COMES HERE IF OCTAL MODE. 

LOCAU 

TSX 

CHRCTR f 4 



SUB 

=HOOOOO) 



TNZ 

LOCAU 



TRA 

LOCAW 

) SIGN 

LOCAV 

LDQ 

VAR 



RGL 

3 

REPLACE TOP 3 BITS 


LGR 

3 

BY NEXT OCTAL CHARACTER 


RQl 

3 

PUT IN BOTTOM OF MQ 


STQ 

VAR 



REM 

COMES HERE WHEN ) 

IS. FOUND. 

LOCAM 

TSX 

CHRCTR, 4 



TQP 

*+2 

MINUS FOR NEW CARD 


TSX 

TEST, 4 



LXA 

WORD, 4 

CHARACTER TO IRC 


TXL 

LOCAV, 4, 7 

OCTAL DIGITS 


TXL 

£RRJ,4» 58 

ALPHABETIC, JUNK, 8, 9. 


TXH 

ERR J ,4,59 

SPLITS ( 

LOCAX 

LXD 

JK1 , 2 

COMMA 


CLA 

VAR 



TRA 

LOCI 



REM 

CONVERT THE NUMBER TO BINARY. 

LOCAY 

TSX 

BINARY, 4 



REM 




REM 

COMES HERE IF ALF 

MODE. 

LOCAZ 

TSX 

CHRCTR, 4 



TSX 

COMPAR, 4 



BCI 

I , ) 00000 



TRA 

*+5,2,2 



TRA 

ERRK 

JUNK 


TRA 

LOCAZ 

ALPHABETIC 


TRA 

LOCAY 

NUMERIC 


REM 

COMES HERE WHEN > 

IS FOUND 


01580 

01590 

01600 

01610 

01620 

01630 

01640 

01650 

01660 

01670 

01680 

01690 

01700 

01710 

01720 

01730 

01740 

01750 

01760 

01770 

01780 

01790 

01800 

01810 

01820 

01830 

01840 

01650 

01860 

01870 

01880 

01890 

01900 

01910 

01920 

01930 

01940 

01950 

01960 

01970 

01980 

01990 

02000 

02010 

02020 

02030 

02040 

02050 

02060 

02070 

02080 

02090 

02100 

02110 

02120 

02130 

02140 

02150 

02160 

02170 

02180 

02190 

02200 

02210 

02220 

02230 

02240 

02250 

02260 

02270 

02280 

02290 

02300 

02310 

02320 

02330 

02340 

02350 

02360 

02370 

02380 

02390 

02400 

02410 

02420 

02430 

02440 

02450 

02460 

02470 

02480 

02490 

02500 

02510 

02520 

02530 



LOCUA 

LXA 


VAR, I 

) SIGN 

02540 


TNX 


ERRK, 1,0 

ALF COUNT WAS ZERO. 

02550 


SXD 


ALF , 1 


02560 


TSX 


CLEAR, 4 


02570 


TSX 


CHRCTR, 4 

PULL THROUGH CHARACTERS AND STORE 

02580 


SUB 


=017 

FILE FLAG, NEVER NEG. 

02590 


TZE 


ERRB 

COUNT WENT PAST E 0 JOB. 

02600 


TSX 


STORE, 4 

THEM ONE AT A TIME. 

02610 


T IX 


*“4 ,1,1 

GO BACK TILL NCHAR = 1 

02620 


LXD 


J,1 


02630 


LXD 


MSH IFT , 4 


02640 


CAL 


BLANK 


02650 


LGR 


42,4 


02660 


ORS 


VAR+1,1 

FILL IN PARTIAL WORD WITH BLANKS. 

02670 

LOCBB 

AXT 


1,4 

IRC TO l 

02680 


LXD 


JK1 ,2 


02690 


CLA 


J 

PREPARE TO STORE ALF WDS 

02700 


STD 


L0CBC1 


02710 

LOCBC 

SXD 


JK1 , 2 


02720 


CLA 


VAR+1 ,4 


02730 

L0C4 

STO 


**, 2 


02740 


TXI 


**1,4,1 

J = J + I 

02750 

LOCBC 1 

TXH 


LOCBD, 4,** 


02760 


TXI 


LOCBC, 2, 1 

JK= JK+1 

02770 

LOCBO 

STZ 


ALF 


02780 


TSX 


CLEAR, 4 


02790 


TSX 


CHRCTR, 4 

LOOK AT NEXT CHARACTER. 

02800 


TQP 


*♦2 

MINUS FOR NEW CARD 

02810 


TSX 


TEST, 4 

PUT IN COMMA IF NEEOED. 

02620 


SUB 


sHOOOOO , 


02830 


TZE 


LOCAN 

GO RAISE AND STORE JK1. 

02840 


REM 




02850 


REM 

THESE ARE ERROR 

CALLS 

02860 

ERRfl 

TSX 


ERROR, 4 


02870 


BCI 


1 , 0( B) 


02880 

ERRD 

TSX 


ERROR, 4 


02890 


BCI 


1,0(0) 


02900 

ERRJ 

TSX 


ERROR, 4 


02910 


BCI 


1 , 0 ( J ) 


02920 

ERRK 

TSX 


ERROR, 4 


02930 


BCI 


1 , 0 ( K ) 


02940 

CRRM 

TSX 


ERROR, 4 


02950 


BCI 


1 , 0 ( M ) 


02960 

ERRU 

TSX 


ERROR, 4 


02970 


BCI 


1,0(U) 


02980 


REM 




02990 


REM 


$E COMES 

HERE AFTER *D 

03000 

LOCBG 

CLA 


=0076100000000 NOP 

03010 


STO* 

$( LINK) 

CLOSE BACKSPACE GATE 

03020 


TRA 


LOCAC 

RETURN 

03030 


REM 

PURPOSE OF SEND 

CARD IS TO PROTECT FORIEGN DATA FROM 

03040 


REM 

BACKSPACE WHEN 

CHAIN IS CALLED. 

03050 


REM 




03060 


REM 


END OF THE 

MAIN SE6MENT 

03070 


REM 

THIS A ROUTINE 

TO BACKSPACE THE INPUT TAPE WHEN A 

03080 


REM 

CALL ChAIN IS GOING TO SPILL THE BUFFER. 

03090 


REM 

THIS ROUTINE IS 

EXECUTED FROM CHAIN VIA THE ONE 

03100 


REM 

WORD SUBROUTINE 

(LINK) WHICH CONTAINS EITHER TSX OR NOP 

03110 

TSX8S 

TSX 


LOCBS, 4 

TO BE STORED AT (LINK 

03120 

LOCBS 

SXA 


**4,4 

SAVE INDEX 4 

03130 


CLA 


INTAPE 

INPUT TAPE NUMBER 



CALL 

$( 10$) 

SELECT INPUT TAPE 

03150 


XEC* 

SIB SR) 

BACKSPACE IT 

03160 


AXT 


**, A 

RESTORE INDEX 

03170 


TRA 


1,4 

RETURN TO THE CHAIN ROUTINE 

03180 


EJECT 



03190 


REM 

THIS IS SUBROUTINE CHRCTR. IT STORES SUCCESSIVE 

03200 


REM 

CHARACTERS FROM 

THE CARO AT LOCATION WORD, READS 

03210 


REM 

SUCCESSIVE CARDS INTO THE ARRAY RECORD, AND PRINTS 

03220 


REM 

*$ 

TYPE CARDS. 

THE FIRST CHARACTER FROM A NEW CARD 

03230 


REM 

IS 

STORED IN WORD WITH A MINUS SIGN. 

03240 


R.EM 




03250 


REM 




03260 

CHRCTR 

SXD 


TEMP-10,2 


03270 


SXD 


TEMP-17,4 


03280 


LXD 


1,2 

CARD COL COUNT, SAW COUNT 

03290 


TXH 


*+2,2,83 

TOO EARLY TO READ. 

03300 


XEC 


READ. 

GATE MAY BE CLOSED 

03310 


LDQ 


Q 

HAS UNUSED CHARACTERS FROM BEFORE 

03320 


CLA 


SIGN 

ZERO OR $ GOES TO TAG 

03330 

LOCCA 

ALS 


6 

SHIFT LEFT l CHARACTER 

03340 


SLW 


TAG 

CLEARS OR PRELOADS TAG 

03350 

LOCCB 

LXD 


ALF, 4 

NONZERO MEANS ALF MODE. 

03360 

LOCCC 

TXH 


LOCCD, 2, 43 

SAW COUNT GIVES COL 81 = 43. 

03370 


TXH 


LOCCG ,2 ,42 

WAS COL 80 PROCESSED. 

03380 

LOCCD 

PXD 


0,0 

CLEAR ACCUMULATOR. 

03390 


LGL 


6 

SHIFT NEXT CHARACTER INTO ACC. 

03400 


T I X 


LOCCE, 2, 14 

COUNT DOWN BY 14 

03410 


LDQ 


RECORD+3,2 

LOAD NEXT WORD 

03420 


TXI 


•+1,2,69 

JUMP BACK COUNTER. 

03430 

LOCCE 

TXH 


LOCCF ,4,0 

RETURN IF ALF MOOE. 

03440 


PAX 


0,1 

MOVE CHR. INTO INOEX 1 

03450 


TXH 


LOUCF , 1 ,48 

TRA MEANS GOOD CHARACTER. 

03460 


TXH 


LOCCC, 1,47 

TRA IF BLANK 

03470 


TXH 


LOCCF, 1,43 

TRA IF GOOD CHARACTER. 

03480 


TXL 


LOCCF, 1,42 

TRA IF GOOD CHARACTER. 

03490 


ZET 


TAG 

HERE ON $ 

03500 


TRA 


PRINT 

HERE ON $$ GO PRINT 

03510 


TRA 


LOCCA 

$ GOES TO TAG. 

03520 


REM 




03530 



LCJCCF 

SXD 

I • 2 

SAVE SAW COUNT 

03540 


STQ 

Q 

SAVE UNUSED CHARACTERS. 

03550 


ADD 

TAG 

ATTACH $ SIGN IF PRESENT. 

03560 


STO 

WORD 

SAVE THE CHARACTER AT WORD. 

03570 


LDQ 

SIGN 

SIGN OF MQ NEGATIVE IF NEW CARD. 

03580 


ST l 

SIGN 

CLEAR SIGN. 

03590 


STZ 

TAG 

CLEAR TAG OF ANY S 

03600 


LXD 

TEMP-17,4 


03610 


LXD 

TEMP-10,2 


03620 


TRA 

1,4 

RETURN 

03630 


REM PRINT OUT THE 

$$ CARDS. 

03640 

PRINT 

STQ 

Q 


03650 


XEC* 

$( TES) 

CHECK FOR QUIET BUFFERS. 

03660 


XEC 

READ. 

FETCH NEXT CARD. 

03670 


LDQ 

Q 


03680 


LGL 

6 

SPACE CONTROL SAFE IN ACC 

03690 


LDQ 

BLANK 


03700 


AXT 

4» 4 

FILL END OF OUTPUT 

03710 


STQ 

OUTBUF+19,4 

BUFFER WITH BLANKS. 

03720 


T IX 

*— i » 4 » 1 


03730 


LGR 

6 

SPACE CONTROL BACK TO MQ. 

03740 


STQ 

OUTBUF 

STORE SPACE CONTROL. 

03750 


AXT 

14,4 


03760 


LDQ 

RECORD+2, 4 


03770 


STQ 

OUTBUF+15,4 


03780 


T IX 

*-2,4,1 


03790 


TSX 

PR I NX , 4 


03800 


TRA 

*+3 


03810 

LOCCG 

XEC 

READ. 

ALMOST ALWAYS A NOP. 

03820 


XEC* 

$ ( TES) 

WAIT FOR QUIET READ BUFFER. 

03830 


STZ 

TAG 

CLEAR THE $$ CHARACTERS. 

03840 


AXT 

14,2 

FETCH CARO. 

03850 


LDQ 

INBUF+14,2 

14 WORDS 

03860 


STQ 

RECORD+2, 2 


03870 


T I X 

*-2,2,1 


03880 


CLA 

TSXRD 

OPEN READ. GATE 

03890 


STO 

READ. 


03900 

LOCCJ 

AXT 

84,2 

CARD COL 1 IS 84 

03910 


CLS 

= 0 

SET MINUS ZERO IN SIGN 

03920 


STO 

SIGN 


03930 


LGL 

12 

SAVE COLUMN 79 AND 80 



LDQ 

BLANK 

BLANK OUT COLUMN 81 TO 84 



LGR 

12 

MAY HAVE LOOK AHEAD 



STQ 

RECORD* l 




LDQ 

RECORD-12 


03940 


TRA 

LOCCA 


03950 


REM 



03960 


REM 

COMES HERE ON END OF FILE FLAG 

03970 

LOCCK 

LXD 

TESTJK, 4 


03980 


TXH 

RTN»4»0 

WAS DATA LOADED. YES RTN 

03990 

SGNOUT 

XEC* 

SITES) 

WAIT FOR QUIET OUTPUT BUFFER 

04000 


AXT 

6,4 


04010 


LDQ 

OUT+6,4 


04020 


STQ 

OUT BUF+6 , 4 


04030 


T I X 

*-2,4,1 


04040 


AXT 

13,4 


04050 


LDQ 

BLANK 


04060 


STQ 

OUTBUF+19,4 


04070 


T IX 

*-1,4,1 


04080 


TSX 

PRINX.4 


04090 


XEC* 

* ( TES ) 

WAIT FOR QUIET BUFFER. 

04100 

LUCOUT 

CALL 

♦ EXIT 

THIS WAY OUT FOR KEEPS 

04110 


REM 



04120 

OUT 

8C1 

6 , 1END OF FILE INPUT TAPE JOB COMPLETE 

04130 


REM 



04150 


REM ENO 

OF THE SAP SUBROUTINE CHRCTR. 

04160 


EJECT 



04170 


REM THIS IS SUBROUTINE CLEAR. IT INITIALIZES 

04180 


REM NECESSARY PARAMETERS FOR SUBROUTINE STORE. 

04190 


REM 



04200 

CLEAR 

SXD 

J,0 

SET J TO 0. 

04210 


STZ 

VAR 

CLEAR VAR ( 1 ) . 

04220 


SXO 

MSH IF T , 0 

RESET MSHIFT • 

04230 


TRA 

1,4 

RETURN TO CALLING PROGRAM 

04240 


REM 



04250 


REM END 

OF THE SAP SUBROUTINE CLEAR. 

04260 


REM 



04270 


REM 



04280 


REM THIS Ii FUNCTION 

COMPAR. IT EXAMINES THE CURRENT 

04290 


REM CHARACTER AND TESTS IT AGAINST THE CHARACTERS 

04300 


REM FOUND IN THE ARGUMENT. ALPHABETIC AND NUMERIC 

04310 


REM SPLITS ARE MADE 

IF THE CHARACTER IS NOT FOUND 

04320 


REM IN 

THE ARGUMENT. 

THESE TESTS ARE COUNTED AND 

04330 


REM THE 

NUMBER LEFT 

IN INDEX 2 CORRESPONDS TO THE 

04340 


REM SUCCESSFUL TEST. 

IF NO TEST IS SUCCESSFUL 

04350 


REM THEN INDEX 2 CORRESPONDS TO THE TOTAL TESTS +1. 

04360 


REM 



04370 

COMPAR 

LDQ 

1,4 

USE FIRST ARGUMENT IN CALLING 

04380 


AXT 

1,2 


04390 

LOCOA 

PXD 

0,0 


04400 


LGL 

6 

PULL IN 1ST TEST CHARACTER. 

04410 


TZE 

LOCDD 

DONE IF ZERO. 

04420 


CAS 

WOKO 

CHECK TEST WORD AGAINST CARD 

04430 


TXI 

LOCOA, 2,1 

CHARACTER. 

04440 


TRA 

LOCDC 

EQUAL. 

04450 

LOCDB 

TXI 

LGgDA,2, 1 

NOT EQUAL. GET NEXT TEST 

04460 

LOCDC 

CLA 

WORD 

CHARACTER. 

04470 


TRA 

2,4 

PROGRAM RETURN. 

04480 



LOCDO 

CLA 


2,4 

USE SECOND ARGUMENT IN THE CALLING 

04490 


POX 


0,1 

SEQUENCE (DECREMENT) AS THE TEST 

04500 


TNX 


LOCOC, 1,1024 

FOR ALPHABETIC-NUMERIC SPLIT. 

04510 


SXO 


LOCDF , 1 

BECOMES INCREMENT 

04520 


LXA 


WORD, 1 

CHARACTER TO IRA 

04530 


TXL 


LOCOC, 1,9 

NUMERIC 

04540 


TXH 


LOCDF, 1,57 

SPECIAL 0 ZONE, *X 

04550 


TXH 


LOCDE ,1,49 

ALPHABETIC 0 ZONE, NO / 

04560 


T I X 


*♦2,1,32 

KNOCK OFF 11 ZONE EXCEPT - 

04570 


T I X 


*♦1,1,16 

KNOCK OFF 12 ZONE EXCEPT + 

04580 


REM 


+ AND - SIGNS 

WILL BE (16)10, / WILL BE (17)10 

04590 


TXH 


LOCDF, 1,9 

SPECIAL 

04600 

LOCOE 

TXI 


LOCDF, 2,-1 

ADJUST IRB FOR ALPHABETIC 

04610 

LOCDF 

TXI 


LOCDC, 2 * ** 

ADJUST IRB FOR SPLIT 

04620 


REM 




04630 


REM 

END 

OF THE SAP SUBROUTINE COMPAR. 

04640 


EJECT 



04650 


REM 

THIS IS SUBROUTINE ERROR. IT IS CALLED IF AN 

04660 


REM 

ERROR WAS DETECTED ON ANY OF THE INPUT CARDS. 

04670 


REM 




04680 

ERROR 

SKA 


*♦2,4 

SAVE SOURCE 

04690 


XEC« 


$(TES) 

WAIT FOR QUIET BUFFERS 

04700 


AXT 


**, 4 


04710 


CLA 


1,4 

GET PRINT ARGUMENT 

04720 


STO 


OUTBUF 


04730 


AXT 


1,1 


04740 


CAS 


R 


04750 


TRA 


*♦3 

S THROUGH V 

04760 


TXI 


*+i,l,-l 

R 

04770 

MESSA 

PXD 


BLANK+4, 1 

A THROUGH N 

04780 


ANA 


=7bl7 


04790 


ARS 


16 


04800 


ACL 


MESSA 


04810 


STA 


102. 


04820 


AXT 


4,4 


04830 

102. 

LOQ 


**,4 


04840 


STQ 


0UT8UF+5»4 


04850 


T IX 


*“2,4,1 


04060 


AXT 


14,4 


04870 


LOQ 


RECORD+2,4- 


04880 


STQ 


OUTBUF+19 ,4 


04890 


T1X 


*-2,4,1 


04900 


TSX 


PRINX.4 


04910 


XEC* 


$ ( TES ) 

WAIT FOR QUIET BUFFER 

04920 


AXT 


19,2 


04930 


CLA 


BLANK 


04940 


STO 


OUTBUF+19,2 


04950 


TIX 


•“1,2,1 


04960 


LOQ 


= H * 

PICK UP * 

04970 


LXO 


1,2 

SAW COUNT 

04980 


TXL 


*+2,2,71 

BACK UP IF OVER 71 

04990 


TXI 


*+3,2, -69 


05000 


RQL 


6 

ROTATE ACCORDING TO CHR PART. 

05010 


TIX 


*-1,2,14 

COUNT CHARACTER PART. 

05020 


STQ 


OUTBUF+19,2 

STORE ACCORDING TO RESIDUAL 

05030 


TSX 


PR I NX ,4 

PRINT THE * 

05040 


XEC* 


$( TES) 

WAIT FOR THE * TO BE PRINTED 

05050 


LXO 


£RSW,4 

PICK UP ERROR SWITCH. 

05060 


TXL 


LOGOUT, 4,0 

NON ZERO MEANS TRY NEXT SET 

05070 


AXT 


1208,4 

BYPASS MARK 

05080 


SXD 


BLANK, 4 

MARK BYPASSED CARDS 

05090 


LXA 


NRfcGl ,4 

NONZERO IF THIS $DATA CARO. 

05100 


TXL 


*+2,4,0 


05110 


TSX 


REAO. +1 ,4 

CRASH READ GATE IF $DATA CARD. 

05120 

LOCEB 

TSX 


CHRCTR ,4 

SKIP TO NEXT $DATA AND TRY THAT SET. 

05130 


TQP 


LOCEB 


05140 


SUB 


=HOOOO$D 


05150 


TNZ 


LOCEC 

TRA NOT A (DATA CARD 

05160 


STQ* 


NRfcGl— i 

PUTS - SIGN IN TABLE ( 1 ) 

05170 


LXO 


BLANK+7,4 


05180 


SXO 


BLANK, 4 


05190 


LKD 


INDX+2,4 


05200 


TRA 


LOCA 


05210 

LOCEC 

AOO 


= 5 

TEST FOR END FILE FLAG 

05220 


TZE 


SGNOUT 

END FILE.. GET OFF 

05230 


TRA 


LOCEB 

OTHER 

05240 


REM 




05250 


REM 

ERROR MESSAGES. FIRST WORD ALSO USED AS A BLANK. 

05260 

BLANK 

BCI 


4, REDUNDANCY CHECK 

05270 


BCI 


4, ILLEGAL CHARACTER 

05280 


BCI 


4, NO MANTISSA 

BEFORE E. 

05290 


BCI 


4, NO ENTRY IN 

TABLE 

05300 


BCI 


4, STYPE MISSING OR WRONG 

05310 


BCI 


4,EXP0N. OUT OF RANGE 

05320 


REM 




05330 


REM 

END 

OF THE SAP SUBROUTINE ERROR. 

05340 


EJECT 



05350 


REM 

THIS IS SUBROUTINE 

: LOOK. IT SEARCHES THE TABLE 

05360 


REM 

FOR 

THE NAME STORED AT LOCATION VAR. IF FOUND, 

05370 


REM 

THE 

ACC IS NON-ZERO AT THE RETURN. 

05380 


REM 




05390 

LOOK 

SXD 


TEMP-12, 4 

SAVE INDEX REGISTER C. 

05400 


CLA 


J 

SUBROUTINE. 

05410 


STD 


LOCFE 


05420 


AXT 


2,2 JK = 2 

: IN INDEX B 

05430 


AXT 


1,1 

J1 = 1 IN INDEX A 

05440 

LOCFA 

CAL 


**,2 

CAL TABV(JK). 

05450 


TZE 


LOCFG 

NO ENTRY THIS VARIABLE 

05460 


STD 


LOCFD 

DECREMENT HAS NEXT 

05470 


ACL 


=0377777000000 

05480 


ANA 


=0377777000000 

l ENTRY LOC. SAVE DECR 

05490 


SUB 


J 

ONLY. CHECK ENTRY LENGTH. 

05500 


TNZ 


LOCFD 

IF NOT THE SAME, LOOK AT NEXT ENTR 

05510 


PXD 


0,2 


05520 


POX 


0,4 

JM = JK IN INDEX C. 

05530 



LDCF6 

CLA 


VAR+L 1 1 

SEE IF VAR AND THIS 

05540 

LOCFC 

CAS 


** ,4 

ENTRY AGREE 

05550 


TRA 


*♦2 

IF SO, CHECK REST OF NAME 

05560 


TXI 


**2,4,1 

RAISE JM BY ONE. 

05570 

LQCFO 

TXI 


LOCFA— 1 ,2, ** 

IF NOT SO, GO TO NEXT ENTRY. 

05500 


TXI 


*♦1,1,1 

RAISE J1 BY ONE. 

05590 

LOCFC 

TKL 


LOCFB, 1,** 

FINISHED IF J1 IS GREATER THAN J. 

05600 


TSX 


CLfcAR , 4 

CLEAR IF THE ENTRY AGREES. 

05610 

LOCFF 

CLA* 

LOCFA 


05620 


STO 


I LUC 

SAVE COMMON INDEX AT ILOC. 

05630 

LOCFG 

L XD 


TEMP-12, 4 

PREPARE TO RETURN. 

05640 


TRA 


1,4 

RETURN TO THE CALLING PROGRAM. 

05650 


REM 




05660 


REM 




05670 


REM 

END 

OF THE SAP SUBROUTINE LOOK. 

05680 


EJECT 



05690 


REM 

THIS IS SUBROUTINE NAME. IT IS USED TO 

05700 


REM 

CORRELATE NAMES 

FROM INPUT CARDS WITH INTERNAL 

05710 


REM 

MEMORY LOCATIONS 

BY REFERRING TO THE TABLE. 

05720 


REM 




05730 


REM 




05740 

NAME 

sxo 


TEMP-20,4 

SAVE INDEX C. 

05750 


REM 

GET 

THE REST OF 

THE VARIABLE NAME. STOP AT ANY 

05760 


REM 

NON 

ALPHANUMERIC 

CHARACTER. 

05770 

LOCGfl 

TSX 


STORE, 4 


05780 

LOCGC 

TSX 


CHRCTR » 4 


05790 


TQP 


*+2 

MINUS FOR NEW CARD 

05800 


TSX 


TEST, 4 

COMMA MAY BE NEEDED. 

05810 


TNZ 


* + 3 

LOOK FOR ZERO. IF ZERO, MAKE IT 

05820 


ACL 


=HOOOOOO 

A LETTER 0 

05830 


STO 


WORD 


05840 

LOCGE 

TSX 


COMPAR, 4 


05850 


BCI 


1,=(0000 


05860 


TRA 


*♦5,2,1 


05870 


TRA 


LOCGF 

JUNK OR OPERATORS 

05880 


TRA 


LOCGB 

NUMERIC OR ALPHABETIC 

05890 


TRA 


LOCGG 

I SIGN 

05900 


STZ 


ILGCL 

= SIGN 

05910 


REM 

GO 

TO THE TABLE 

LOOKUP ROUTINE IF AN * SIGN 

05920 


REM 

OR AN OPERATOR 

WAS FOUND. 

05930 

LOCGF 

TSX 


LOOK, 4 

FIND THE NAME IN TABLE. 

05940 


TZE 


ERRT 

NAME WAS FOUND IN TABLE IF NON-ZfcR 

05950 


LXA 


HOC, 2 


05960 


TRA 


LOCGL 


05970 


REM 




05980 


REM 

GO 

TO THE TABLE 

VARIABLE LOOKUP ROUTINE IF A 

05990 


REM 

( SIGN WAS FOUND 

. 

06000 

LOCGG 

TSX 


LOOK, 4 


06010 


TNZ 


LOCGJ 


06020 

ERRT 

TSX 


ERROR, 4 


06030 


BCI 


1,0(T) 


06040 


REM 

CONVERT THE INOEX TO BINARY. 

06050 

LOCGH 

TSX 


BINARY, 4 


06060 


REM 

GET 

THE NUMERICS 

FOR THE INDEX TO THE VARIABLE. 

06070 

LOCGJ 

TSX 


CHRCTR, 4 


06080 


TXL 


LOCGH, 1,9 

NUMERIC 

06090 


TXL 


ERKC, 1,27 

JUNK 

06100 


TXH 


ERRC, 1,29 

JUNK 

06110 


TSX 


CHRCTR, 4 

) SIGN. GET NEXT CHARACTER. 

06120 


TQP 


*+2 

MINUS FOR NEW CARD 

06130 


TSX 


TEST ,4 

COMMA MAYBE NEEDED. 

06140 


TSX 


COMPAR, 4 


06150 


BCI 


1, *00000 


06160 


TRA 


*+4,2,1 


06170 


TRA 


LOCGK 

OPERATORS 

06180 


TRA 


ERRL 

ALPHABETIC AND NUMERIC 

06190 


STZ 


IL0C1 

= SIGN 

06200 


REM 




06210 

LOCGK 

CLA 


VAR 

COMPUTE STORING INOEX. 

06220 


ACL 


ILUC 


06230 


PAX 


0,2 

STORE ADDRESS AT DECREMENT WITHOUT 

06240 


TXI 


*+1,2,- 1 


06250 

LOCGL 

SXD 


JK, 2 

ACCUMULATOR OVERFLOW. 

06260 


CLA 


I LOCI 


06270 


LXD 


TEMP-20,4 

RESTORE INDEX C. 

06280 


TRA 


1,4 

RETURN TO CALLING PROGRAM. 

06290 


REM 


CONSTANTS AND ERROR CALL. 

06300 

ERRC 

TSX 


ERROR, 4 


06310 


BCI 


1,0(0 


06320 


REM 




06330 


REM 

END 

OF THE SAP SUBROUTINE NAME. 

06340 


EJECT 



06350 


REM 

THIS IS SUBROUTINE NUMBER. IT IS USED TO 

06360 


REM 

ASSEMBLE NUMERIC 

DATA FROM CARDS. ALL VALUES ARE 

06370 


REM 

TREATED AS FLOATING POINT NUMBERS IN THIS ROUTINE. 

06360 


REM 




06390 

NUMBER 

SXO 


TEMP-23,4 

SAVE INDEX C. 

06400 


SXD 


KNT2,4 

INITIALIZE 

06410 


STZ 


KNT 3 

THE SUBROUTINE 

06420 


STZ 


KNT 1 

BRANCH PARAMETERS. 

06430 


STZ 


KNT4 


06440 


STZ 


TEMP 


06450 


TRA 


LOCHB 


06460 


REM 




06470 

LOCHA 

TSX 


CHRCTR, 4 


06480 


TQP 


*+2 » 

MINUS MEANS FROM NEW CARD 

06490 


TSX 


TEST, 4 


06500 



LOCHfl TSX 

COMPARE 


06510 

BCI 

1* • EOOOO 


06520 

TRA 

*+6,2,2 


06530 

TRA 

LOCHK 

JUNK OR AN OPERATOR 

06540 

TRA 

ERRE 

ALPHABETIC 

06550 

TRA 

LOCHC 

NUMERIC 

06560 

TRA 

LOCHE 

E 

06570 

CIA 

KNT2 

DECIMAL POINT. 

06580 

TN2 

*♦3 

ZERO MEANS THIS IS THE SECOND POIN 

06590 

TSX 

ERROR. 4 


06600 

BCI 

l.O(N) 


06610 

ST 2 

KNT2 


06620 

STZ 

NEXP 


06630 

TRA 

LOCHA 


06640 

LOCHC CLA 

NEXP 

COUNT THE NUMBER OF DIGITS BEHIND 

06650 

ADD 

*1835 

THE. IF THERE IS ONE 

06660 

STO 

NEXP 


06670 

LQCHD LXA 

KNTl.i 


06680 

TXH 

LOCHD2 i 1 » 10 

DO NOT ACCUMULATE PAST 10 

06690 

LOCHD1 TSX 

BINARY, 4 

CONVERT THE DIGIT TO BINARY. 

06700 

TZE 

LOCHA 

DO NOT COUNT LEADING ZEROS. 

06710 

L0CH02 TXI 

*♦1,1,1 

COUNT TOTAL NO. OF OIGITS 

06720 

SXA 

KNT1.1 


06730 

TRA 

LOCHA 


06740 

REM 

COMES HERE WHEN 

THE EXPONENT FIELD IS 

06750 

LOCHE CLA 

KNT1 

ENCOUNTERED. 

06760 

TNZ 

LOCHH 

THERE MUST BE AT LEAST ONE DIGIT 

06770 

TSX 

ERROR, 4 

BEFORE THE E OF AN E FORMAT NUMBER 

06780 

BCI 

1»0CSI 


06790 

LOCHF CLA 

KNT3 

SEE IF EXPONENT DIGITS HAVE ARRIVE 

06800 

TRA 

*+2 


06810 

LOCHG CLS 

KNT3 

SEE IF EXPONENT DIGITS HAVE ARRIVE 

06820 

TNZ 

LOCHK-2 

NON ZERO MEANS SIGN IS OPERATOR. 

06830 

STO 

TEMP 

STORE SIGN OF EXPONENT. 

06840 

CLA 

KNT4 


06850 

TNZ 

ERRF 

NONZERO MEANS MORE THAN 1 EXP SIGN 

06860 

SXD 

KNT4.2 

MAKE NOZERO. 

06870 

LOCHH TSX 

CHRCTR, 4 


06880 

TOP 

*+2, 

MINUS MEANS FROM NEW CARD 

06890 

TSX 

TEST, 4 


06900 

T6X 

C0MPAR.4 


06910 

BCI 

1**- .000 


06920 

TRA 

*+7,2,2 


06930 

TRA 

LOCHK.- 2 

OTHERS 

06940 

TRA 

ERRF 

ALPHABETIC 

06950 

TRA 

LOCHJ 

NUMERIC 

06960 

TRA 

ERRF 

DECIMAL 

06970 

TRA 

LOCHG 

MINUS 

06980 

TRA 

LOCHF 

PLUS 

06990 

REM 

CONVERT THE EXPONENT TO BINARY. 

07000 

LQCHJ CLA 

TEMP 


07010 

ALS 

2 


07020 

ADD 

TEMP 


07030 

ALS 

1 


070*0 

ACL 

WORD 


07050 

STO 

TEMP 


07060 

SXD 

KNT3, 2 

RECORD FACT FOR SECOND SIGN. 

07070 

TRA 

LOCHH 


07080 

REM 

COMES HERE WHEN 

AN OPERATOR WAS FOUND. 

07090 

CLA 

KNT3 

TEST FOR THE PRESENCE OF EXPONENT. 

07100 

TZE 

ERRF 

ZERO MEANS NO EXPONENT CAME. 

07110 

LOCHK CLA 

KNT2 


07120 

TZE 

*+2 


07130 

STZ 

NEXP 


07140 

CLA 

KNT1 

SEE IF MORE THAN TEN NUMBERS HAVE 

07150 

SUB 

=10B35 

BEEN CONVERTED 

07160 

TPL 

*♦2 

IF SO, USE THE DIFFERENCE IN THE 

07170 

PXD 

0,0 

COMPUTATION OF THE EXPONENT. 

07180 

SUB 

NEXP 


07190 

ADD 

TEMP 


07200 

STO 

NEXP 


07210 

REM 

MANTISSA IN VAR 

AND THE EXPONENT IS IN NEXP. 

07220 

CLA 

VAR 


07230 

TZE 

LOCHQ 

SHORT CUT IF ZERO. 

07240 

LDQ 

=0233000000000 CHARACTERISTIC FOR LOW BITS 

07250 

LGR 

8 

LOW 8 BITS TO MQ 

07260 

RGL 

8 


07270 

LRS 

0 

BRING SIGN 

07280 

STQ 

VAR 


07290 

ORA 

*0243000000000 CHARACTERISTIC FOR HIGH BITS 

07300 

FAD 

VAR 


07310 

FRN 



07320 

STO 

VAR 


07330 

CLA 

NEXP 

THE EXPONENT 

07340 

AXT 

1,2 


07350 

LDQ 

-1. 

PUT l IN MQ 

07360 

LOCHL LBT 


EXPONENT IN ACCU 

07370 

TRA 

LOCHM 

FOUND NO BIT. 

07380 

TXH 

ERRV ,2,6 

EXPONENT EXCEEDS 63 

07390 

STO 

VAR-2 


07400 

FMP 

TAB+1,2 

THIS FORMS 10 **NEXP 

07410 

XCA 


SAVE IN MQ 

07420 

CLA 

VAR- 2 


07430 

LOCHM ARS 

1 


07440 

TZE 

LOCHN 

iO»*NEXP FINISHED. 

07450 

TKI 

LOCHL, 2,1 


07460 

LOCHN TMI 

LOCHO 

MULTIPLY IF PLUS. 

07470 

FMP 

VAR 


07480 

FRN 



07490 

TRA 

LOCHQ 


07500 

LOCHO STQ 

VAR-2 


07510 

CLA 

VAR 

DIVIDE IF NEXP IS MINUS. 

07520 

FDP 

VAR-2 


07530 

XCA 


ANSWER BACK TO THE ACCUM 

07540 

LOCHQ LXD 

TEMP-23,4 

RESTORE INDEX C. 

07550 

TRA 

1,4 

RETURN TO CALLING PROGRAM. 

07560 

REM 

THESE ARE THE ERROR CALLS FOR SUB NUM8R. 

07570 



ERRE 

TSX 


ERRORS 


07500 


BCI 


I, 0(E) 


07590 

ERRF 

TSX 


ERROR, 4 


07600 


BCI 


1 ,0 ( F ) 


07610 

ERRV 

TSX 


ERROR, 4 


07620 


BCI 


1*0(V) 


07630 


REM 




07640 


REM 

THIS 

; IS THE FLOATING PT. TABLE USED 

IN DBC 

07650 


DEC 


1E+32, 1E+16, 1E+8, 1E+4, IE+2 

CONVERSION TABLE 

07660 

TAB 

DEC 


1E + 1 


07670 


REM 




07660 


REM 

END 

OF THE SAP SUBROUTINE NUMBER. 


07690 


EJECT 



07700 



REM 

THIS IS SUBROUTINE STORE. IT STORES CHARACTERS 

07710 


REM 

AT THE ARRAY 

VAR. 


07720 


REM 




07730 

STORE 

sxo 

TEMP-13,1 


SAVE INOEX A. 

07740 


SXD 

TEMP-14,2 


SAVE INDEX 8. 

07750 


LXD 

J, 1 


PUT J INTO INDEX REGISTER A. 

07760 

LQCJA 

LXD 

MSH IFT , 2 


LOAD INDEX B WITH MSH IFT. 

07770 


T IX 

LOCJB, 2,6 


ADVANCE MSHIFT. 

07780 


AXT 

36,2 


REFRESH MSHIFT. 

07790 


TXI 

*♦1,1,1 


RAISE J BY ONE IF MSHIFT IS OVER 

07800 


STZ 

VAK , 1 


CLEAR NEXT CELL 

07810 

LOCJB 

CLA 

WORD 


LEAVE SIGN BEHIND 

07820 


LOQ 

*0 



07830 


LGR 

42,2 


MOVE CHARACTER 

07840 


STQ 

TEMP-7 


PLACES TO THE LEFT. 

07850 


CAL 

TEMP-7 



07860 


ORS 

VAR+1 , 1 


STORE THE CHARACTER AT VAR. 

07870 


SXD 

MSH I FT , 2 


SAVE MSHIFT. 

07880 


SXD 

J,1 


SAVE J. 

07090 


LXD 

TEMP- 13,1 


RESTORE INDEX A. 

07900 


LXD 

TEMP-14,2 


RESTORE INDEX B. 

07910 


TRA 

1,4 


RETURN TO CALLING PROGRAM. 

07920 


REM 




07930 


REM 

END OF THE SAP SUBROUTINE STORE. 

07940 


EJECT 



07950 


REM 

THIS IS SUBROUTINE TABLE. IT IS USED TO 

07960 


REM 

CONSTRUCT A TABLE 

OF NAMES TO BE USED ON CARDS 

07970 


REM 

AND THEIR MEMORY 

LOCATIONS RELATIVE TO ARG 2 OF 

07980 


REM 

THE CALLING SEQUENCE. 

07990 


REM 




08000 


REM 




08010 

TABLE 

SXD 

TEMP-15,4 


SAVE INDEX C. 

08020 


STZ 

TEMP 



08030 

LOCKA 

TSX 

CHRCTR , 4 



08040 


TSX 

COMPAR, 4 



08050 


BCI 

1,, 00000 



08060 


TRA 

*+5,2,2 



08070 


TRA 

LOCKD+1 


JUNK 

08080 


TRA 

LOCKA 


ALPHABETIC 

08090 


TRA 

LOCKD+i 


NUMERIC 

08100 

LOCKB 

STZ 

TEMP 


COMMA 

08110 


TRA 

LOCKD 



08120 


REM 

COMES HERE TO 

CONVERT THE ADDRESS TO OCTAL FOR 

08130 

LOCKC 

CLA 

TEMP 


THE TABLE. 

08140 


ALS 

2 



00150 


ADD 

TEMP 



08160 


ALS 

1 



08170 


ACL 

WORD 



08180 


STQ 

TEMP 


ADDS TO MAGNITUDE 

08190 


REM 




08200 


REM 

COMES HERE TO 

GET 

NUMERICS. 

08210 

LOCKD 

TSX 

CHRCTR, 4 



08220 


TSX 

COMPAR, 4 



08230 


BCI 

l,.=/000 



08240 


TRA 

*♦7,2,2 



08250 


TRA 

ERRA 


JUNK 

08260 


TRA 

ERKA 


ALPHABETIC 

08270 


TRA 

LOCKC 


NUMERIC 

08280 


TRA 

LOCKT 


/ CHARACTER 

08290 


TRA 

LOCKF 


= SIGN 

08300 


REM 




08310 


REM 

COMES HERE IF 

A DECIMAL PT WAS FOUND. 

08320 

LOCKE 

CAL 

TEMP 


DECIMAL POINT 

08330 


CHS 



MAKE SIGN MINUS 

00340 


STO 

TEMP 



08350 


TRA 

LOCKD 



08360 


REM 




08370 


REH 

COMES HERE IF 

AN : 

= SIGN WAS FOUND. 

08380 

LOCKE 

TSX 

CLEAR, 4 



00390 

LOCKG 

TSX 

CHRCTR, 4 



00400 


TOP 

*♦2, 


MINUS MEANS FROM NEW CARD 

08410 


TSX 

TESTT ,4 



08420 


TZE 

LOCKH 



00430 


TGX 

COMPAR, 4 



08440 


BCI 

l,/,0000 



08450 


TRA 

*+5,2,1 



08460 


TRA 

ERRG 


JUNK 

08470 


TRA 

LOCKJ 


ALPHABETIC OR NUMERIC 

08480 


SXD 

B, 2 


COMMA 

08490 


SXD 

a, 2 


SLASH 

08500 


TRA 

LOCKK 



08510 


REM 




08520 


REM 

COMES HERE TO 

STORE CHARACTER. 

00530 

LOCKH 

ACL 

-HOOOOOO 


REPLACE ZERO WITH LETTER 0 

08540 


STO 

WORD 



08550 

LOCKJ 

TSX 

STORE, 4 



08560 


TRA 

LOCKG 



08570 . 


REM 

COMES HERE AT 

END 

OF NAME. 

08580 



LQCKK 

TSX 


LOOK, A 


00590 


TNZ 


LOCKR 

GOES TO LOCKR IF THERE IS AN ENTRY 

08600 


LXO 


J»1 


08610 


TXI 


*+l,l,l 

ASSEMBLE KEY 

08620 


PXO 


0,1 

IRB HAS FIRST FREE LOC. 

08630 


ACL 


TEMP 


08640 

LOCKL 

SLW 


** » 2 

STORE KEY INTO TABLE 

08650 


SXD 


*♦1,1 

ADVANCE TO END 

08660 


TXI 


*♦1,2,** 


08670 

LOCKM 

CAL 


VAR+1,1 

MOVE NAME, 0 TO TABLE 

08680 

LOCKN 

XEC 


LOCKL 

SLW IN TABLE 

08690 


TNX 


*♦2,1,1 

TRANSFER WHEN DONE 

08700 


TXI 


LOCKM, 2,-1 

GO BACK TO FINISH 

08710 


ARS 


34 

KEEP ZONE OF 1ST VAR CH. 

08720 


TZE 


ERRG 

WAS NUMERIC, OR J*0 

08730 


REM 




08740 


REM 


REEXAMINE THE 

CUT OFF CHARACTER. 

08750 

LOCKP 

LXO 


B,2 


08760 


TXH 


LOCKS, 2,1 

COMMA 

08770 

LOCKQ 

LXO 


TEMP-15,4 

/ CHARACTER 

08780 


TRA 


1,4 

RETURN. 

08790 


REM 




08800 


REM 


COMES HERE TO 

REPLACE KEY 

08810 

LOCKR 

ANA 


=*0377777000000 J+l IN DECREMENT 

08820 


ACL 


TEMP 

LOCATION AND SIGN 

08830 

LOCKS 

XEC 


LOCKL 

SLW IN TABLE 

08840 


TRA 


LOCKP 


08850 

LOCKT 

CAL 


TEMP 

IS / LEGAL 

08860 


TZE 


LOCKQ 

YES 

08870 


REM 

TRA 

ERRA 

NO, NUMERICS WAITING 

08880 


REM 




08890 


REM 

THESE ARE THE ERROR CALLS. 

08900 

ERRA 

TSX 


ERROR, 4 


08910 


SCI 


1 ,0< A > 


08920 

ERRG 

TSX 


ERROR, 4 


08930 


SCI 


1 ,0 ( G) 


08940 


REM 




08950 


REM 

END 

OF THE SAP SUBROUTINE TABLE 

08960 


EJECT 



08970 


REM 

THIS IS SUBROUTINE TEST. IT LOOKS AHEAD TO CLASSIFY 

08980 


REM 

A NEW CARD. ACOMMA WILL BE PUT INTO THE CURRENT 

08990 


REM 

CHARACTER POSITION ONLY IF EITHER (l) THE NEXT 

09000 


REM 

CARD BEGINS WITH 

A S SIGN FOLLOWED BY SOME OTHER 

09010 


REM 

CHARACTER OR 12 ) 

THE NEXT CARD BEGINS WITH AN 

09020 


REM 

ALPHABETIC AND AN 

= SIGN IS FOUND AND IT PRECEEDS 

09030 


REM 


ALL , $ AND . 

CHARACTERS ON THAT CARO. 

09040 


REM 




09050 


REM 




09060 

TEST 

SXD 


TEMP-12,4 

SAVE INDEX FOR RETURN. 

09070 


SUB 


=H0000$0 

TEST FOR A $ SIGN. 

09080 


TPL 


LOCLA 

POSITIVE MEANS $ SIGN. 

09090 


XEC 


READ. 

SAFE TO REFILL BUFFER 

09100 


TXL 


LQCLB, 1,16 

NUMBERS AND SPECIAL 

09110 


T IX 


*♦1,1,33 

FIX SO SLASH IS SPECIAL 



T I X 


*,1,16 

MOD OUT ZONE 

09130 


TXH 


LOCLB ,1,9 

SPECIALS 

09140 


REM 



ALPHABETIC COME THRU. 

09150 

LOCLC 

AXT 


15,1 

SCAN THE CARD. 

09160 


LOO 


RECORD+3, 1 


09170 


TXI 


*+1,1,69 

FOR CHARACTER COUNT 

09180 


TXL 


LOCLB, 1,70 

DONE IF WHOLE CARD SCANNED 

09190 

LOCLO 

PXD 


0,0 

OK TO* SEARCH 84 COLUNMS 

09200 


LGL 


6 


09210 


PAX 


0,2 

ZONE TO IRB 

09220 


ANA 


=017 

KEEP DIGIT 

09230 


SUB 


=013 

DIGIT PART OF ,$.= CHR. 

09240 


TZE 


LOCLJ 

CHECK ZONE 

09250 


MX 


LOCLD, 1,14 

TRY NEXT CHARACTER 

09260 


TRA 


LOCLC+1 


09270 

LOCLJ 

TXH 


LQCLB, 2, 15 

, . $ NEED NO COMMA 

09280 

LOCLA 

AXT 


84,1 

84 IS CARD COL 1 

09290 


SXO 


1,1 

RESET CHRCTR TO BEGIN CARO 

09300 


CLA 


RECORD-12 


09310 


STO 


Q 


09320 


CLA 


=H00000, 

SUBSTITUTE A COMMA. 

09330 


STO 


WORD 


09340 

LQCLfl 

LXD 


TEMP-12,4 


09350 


CLA 


WORD 

IN AC FOR SR NAME, TABLE 

09360 


TRA 


1,4 

RETURN TO THE CALLING PROGRAM. 

09370 


REM 




09380 


REM 


FOR TABLE SUB STATEMENTS 


TESTT 

SXD 


TEMP-12,4 


09390 


AXT 


84,4 

IF NEXT CARO HAS VALID 

09400 


LDQ 


REC0R0-12 

LEFT PART OF SUBSTATEMENT 

09410 

LOCNB 

PXD 


0,0 


09420 


LGL 


6 


09430 


PAX 


0,2 


09440 


TXH 


LOCLB, 2, 48 

0 ZONES EXCEPT BLANK 

09450 


TXH 


LOCNC, 2, 47 

BLANK 

09460 


TXH 


LOCLB, 2, 27 

11 ZONES AND ) 

09470 


TXH 


LOCLA, 2, 26 

. 

09480 


TXH 


LOCLB, 2, 11 

12 ZONES AND 8-4 

09490 


TXH 


LOCLA, 2, 10 

= 

09500 

LOCNC 

T IX 


LOCNB, 4, 14 

NUMERICS AND BLANK 

09510 


LOQ 


RECORD+3, 4 


09520 


TNX 


LOCLB, 4,1 


09530 


TXI 


LOCNB, 4, 70 


09540 


REM 




09550 


REM 

ENO 

i OF THE SAP SUBROUTINE TEST. 

09560 


EJECT 



09570 


REM 

THE 

FOLLOWING FOUR SUBROUTINES ARE USED TO 

09580 


REM 

CONVERT DECIMAL DIGITS TO BINARY IN VAR, 

09590 


REM 

FIX 

i FLOATING POINT NUMBERS, FLOAT FIXED POINT 

09600 


REM 


NUMBERS, AND 

FORM ARITHMETIC RESULTS IN THE 

09610 


REM 


PSEUDO ACCUMU LATOR (ACC) FOR EACH OPERATION 

09620 


REM 


ON A CARD. 


09630 


REM 096*0 


82 



BINARY CLA 

VAR 

ACCUMULATE A SERIES OF BASE 10 

ALS 

2 

DIGITS IN BINARY IN VAR. 

ADD 

VAR 


ALS 

1 


ACL 

WORD 


STO 

VAR 


TRA 

1*4 


REM 



FLT CLA 

TEMP 

CONVERT TO FLOATING POINT THE 

LRS 

18 

CONTENTS OF THE STORAGE CALLED 

ORA 

=0233000000000 TEMP. 

FAD 

*0233000000000 

STO 

TEMP 

LEAVE THE ANSWER IN TEMP. 

TRA 

1*4 


REM 



FIX UFA 

=0233000000000 CONV TO FIXED PT THE CONT 

LRS 

0 

OF THE ACCUMULATOR. 

ANA 

=0377777 


LLS 

0 


ALS 

18 

LEAVE THE FIXED POINT NUMBER IN 

TRA 

1*4 

THE ACCUMULATOR. 

REM 



ACCUM LXD 

OPER* 2 

BRANCH FOR OPERATOR 

STZ 

OPER 

PREPARE FOR NEXT OPERATOR. 

CLA 

TEMP 


TRA 

*♦5,2 


TRA 

LQCMB 

* 

TRA 

LOCMA 

/ 

CHS 


MINUS 

FAD 

ACC 

PLUS 

ACCUN STO 

ACC 

NONE 

TRA 

1,4 


REM 



LOCMA CLA 

ACC 

DIVIDE. 

FOP 

TEMP 


STQ 

ACC 


TRA 

1*4 


REM 



fcOCMB LOQ 

ACC 

MULTIPLY. 

FNP 

TEMP 


TRA 

ACCUN 


REM 



REM 



REM END 

OF THE SAP SUBROUTINES ACCUM, FIX, FLOAT. 

EJECT 



REM SUBROUTINE PRINX 

DRAINS PRINT BUFFER TO LOGICAL TAPE 

REM 


GIVEN IN DECREMENT OF OUTAPE 

PRINX SKA 

PRINY, 4 

BUFFERED WRITE ROUTINE 

CLA 

OUTAPE 

LOGICAL OUTPUT TAPE NUMBER 

CALL 

MOSI 


AXC 

IQCD, 4 


XEC* 

$ ( MRS ) 

■WTOL 6 

XEC* 

SUCH) 

“RCHL 0,4 

PKA 

0,4 

SAVE LOC OF 

STA* 

S(WTC) 

10 COMMAND FOR (WER) 

CLA 

TSXWR 

PRESET END ACTION 

STO* 

SITES) 


PRINY AXT 

• *»4 


TRA 

1*4 


TSXMR CALL 

< HER) 

EXECUTED FROM (TES) 

IQCD IORT 

OUTBUF, ,19 


EJECT 



REM SUBROUTINE READ. 

FILLS READ BUFFER FROM LOGICAL TAPE 

READ. TSX 

READ. +1,4 

REAO. GATE INITIALLY OPEN 

CLA 

*0076100000000 CLOSE READ GATE 

STO 

*-2 


SXA 

AXT, 4 


CLA 

INTAPE 

LOGICAL INPUT TAPE NO. 

CALL 

( IOS) 


AXC 

IOCD.,4 


XEC* 

SUDS) 

*RTDL5 

XEC* 

S(RCH) 

*RCHL 0,4 

CLA 

TSXTS 

SET UP BUFFER TEST 

STO* 

SITES) 


AXT AKT 

** * 4 


TRA 

1,4 


TSXTS TSX 

*♦1,4 

EXECUTED FROM (TES) 

SXA 

AXT, 4 

CLOSE OUT BUFFER 

CLA 

*0076100000000 SAY BUFFER IS QUIET 

STO* 

SITES) 


AXT 

5,4 

PRESET REDUNDANCY 

SKA 

RTT, 4 

COUNT 

TSXTT AXC 

*+1,4 


XEC* 

SITCO) 

*.TCOL 0,4 

AXC 

RTT, 4 


XEC* 

SITRC) 

*TRCL 0,4 

AXC 

XIT.,4 


XEC* 

SITEF) 

“TEFL 0,4 JOB COMPETE 

TRA 

AXT 

RETURN 

RTT AXT 

• *,4 

INTERROGATE COUNT 

T IX 

SXA. ,4,1 

GIVE ANOTHER TRY 

AKT 

14,4 

CARO SURE BAD 

CLA 

INBUF+14, 4 

SAVE IMAGE 

STO 

RECQRD+2,4 


TIX 

*-2,4,1 


AXT 

84,4 

MAKE ERROR ROUTINE LOSE* 

SXD 

1,4 

IN INPUT BUFFER 

TSX 

ERROR-,4 


R BCI 

ltO(R) 


SXA. SXA 

RTT, 4 

SAVE COUNT 

AXC 

*♦2,4 


XEC* 

SITEF) 

TURN OFF EOF INO 

XEC* 

S ( tiSR ) 

BACKSPACE, 

AXC 

IOCD.,4 


XEC* 

SUDS) 

REREAD 

XEC* 

SUCH) 


TRA 

TSXTT 



09650 

09660 

09670 

09680 

09690 

09700 

09710 

09720 

09730 

09740 

09750 

09760 

09770 

09780 

09790 

09800 

09810 

09820 

09830 

09840 

09850 

09860 

09870 

09880 

09890 

09900 

09910 

09920 

09930 

09940 

09950 

09960 

09970 

09980 

09990 

10000 

10010 

10020 

10030 

10040 

10050 

10060 

10070 

10080 

10090 


10110 

10130 

10140 

10150 

10160 

10170 

10180 

10190 

10200 

10210 

10220 

10230 

10240 

10250 

10260 

10270 

10280 

10290 

10300 

10320 

10330 

10340 

10350 

10360 

10370 

10380 

10390 

10400 

10410 

10420 

10430 

10440 

10450 

10460 

10470 

10480 

10490 

10500 

10510 

10520 

10530 

10540 

10550 

10560 

10570 

10580 

10590 

10600 

10610 

10620 

10630 

10640 

10650 

10660 

10670 

10680 

10690 

10700 



10C0* 
X IT* 


INBUF 

OUTBUF 


RECORD 

ERSW 

Q 

WORD 

OPER 

B 

NEXP 

J 

MSHIFT 
1LOC 
TEMP 
KNT 1 
KNT2 
KNT3 
SIGN 
TAG 
ALF 

JK 

JKl 

ACC 

ILOC1 

KNT4 

VAR 


I ORT 
CLA 
STO 
TRA 


I NdUF , i 14 

=0531700000000 

INBUF 

AXT 


EJECT 

REM BUFFERS AND COMMON STORAGE ASSIGNMENT 


BCI 

BCI 

BCI 

BCI 

BCI 

REM **» 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

SYN 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

END 


-203 

13 

1 

1 

1 

1 

1 

1 

6 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

13 

1 

1 

1 

l 

1 

153 


COMMON STORAGE MAP 

MOVE TO TOP-3 
CD IMG *-12 T0*+1 
CHARACTER POINTER FOR CARD 
ERROR SWITCH ZERO = GET OFF 
UNTESTED CHARACTERS 
CURRENT CHARACTER 
DECR. REPRESENTS OPER. 

TEMP INDEX IN SUB TABLE 
NUMERIC VALUE OF EXPONENT 
COUNTER IN SUB STORE 
COUNTER IN SUB STORE 
DATA BROUGHT FROM TABLE 
TEMPORARY STORAGES 
COUNTER TOTAL DIGITS 
NONZERO UNTIL . FOUND 
ZERO UNTIL DIGIT IN EXP 
MINUS IF SUB CHAR READS C 
SAVES $ IN SUB CHAR 
NONZERO MEANS ALF MODE 

SUBSCR CORR TO NAME 

CURR SUBSCR OF LEFT SIOE 

PSEUDO ACCUMULATOR 
ILOC FOR LEFT SIOE 
NONZERO AFTER EXP SIGN 
SPACE FOR NAMES, ETC. 


10710 

10720 

10730 

10740 

10750 

10760 

10770 

10780 

10790 

10800 

10810 

10820 

10830 

10840 

10850 

10860 

10870 

10880 

10890 

10900 

10910 

10920 

10930 

10940 

10950 

10960 

10970 

10980 

10990 

11000 

11010 

11020 

11030 

11040 

11050 

11060 

11070 

11080 

11090 

11100 

11110 


COUNT l 

REM ONE WORD SUBROUTINE TO CONTROL BACKSPACE OF INPUT TAPE 
LBL LINK, 6 

ENTRY (LINK) 

(LINK) NOP 
END 
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APPENDIX I 


EXAMPLE III LUNAR ORBITING PROBE 

This example of a lunar orbiting probe illustrates the use of the ephemeris 
tape and the control parameters needed to consider the effects of perturbing 
bodies, atmospheric forces, oblatenesg, rotating Earth, and thrust* No effort 
was made to optimize this trajectory- but rather to use plausible values for 
illustrative purposes. It is suggested that the input instructions contained in 
appendix G be read prior to the following detailed discussion. 

Suppose the probe was launched at Cape Canaveral on December 7, 1961, by a 
three-stage vehicle with stage parameters as shown in the following table: 


Parameters 

Stage 

1 

2 

3 

Initial mass, m^, kg 

150,000 

52,500 

23,625 

Engine exit area, Ag, v? 

3.0 

1.0 

.5 

Vacuum specific impulse, I, sec 

420 

420 

420 

Propellant flow rate, -rft, kg/sec 

750 

125 

56.25 

Burning time, t^, sec 

117 

207. 9 

370 

Aerodynamic reference area, S, m^ 

7.5 

4.0 

2,0 


Figure 4 shows the assumed variation of C D q, Cp and C L with Mach number as 
well as the angle-of-attack schedule. * ’ 

The vehicle will be flown as follows: First, there will be a short nondrag 

vertical flight, after which the desired velocity orientation will be set, and 
then a turn will be executed determined by gravity and the angle-of-attack sched- 
ule until first- stage burnout. The second and third stages follow a continuation 
of the same turning pattern. The third stage will be powered until the eccen- 
tricity of the trajectory equals 1.10. It will then coast until it is at lunar 
pericenter, at which time the engine will again be turned on (with a - rt) until 
the orbit about the Moon becomes nearly circular. 

The chosen integration mode will be rectangular for the powered flight, but 
the mode of orbit elements will be used for the coast portions. Other bodies 
considered besides the Earth and the vehicle are the Sun, the Moon, and Jupiter. 
Jupiter is included to illustrate the use of ellipse ephemerides, lie Sun and 
Moon will illustrate the use of the tape ephemeris. 

The correct firing direction and launch time remain to be determined. This 
determination can be made by finding approximate values and then adjusting these 
values after one or more shots are fired* The adjustments could be made by an 
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iteration scheme programed internally to make a closed system. For this exam- 
ple, however, they were made by hand by firing several shots at various azimuth 
angles close to an estimate obtained by using reference 12 and an ephemeris. 

From a plot of the z-direction cosine of the vehicle-Moon distance against 
vehicle-Earth distance, the azimuth angle that will intersect the Moon orbit can 
be determined. The correct launch time is found by using the previously deter- 
mined azimuth angle and various times of day to determine the time of day at 
which the vehicle intersects the correct position in the Moon orbit (location of 
the Moon). This type of analysis gives an azimuth angle of about 64.5° and a 
time of day of about 7. 0^ E. T. (E*T. is ephemeris time, which is approximately 
equal to Greenwich mean time. ) For the present purpose, these values will be 
used. 


The program begins by constructing the merged ephemeris tape for the Sun 
and Moon. This is done by SUBROUTINE TAPE in conjunction with the input shown 
as follows: 


$DATA = 30C,$TABLE,2 = TAPE3, 17 = F.L [ ST , 29= (BEG IN , 30*1 END/ T>$ 10. AND TABLE DEFINITION 
TAPE3=G $5. NECESSARY TO MAKE TAPE 

ELIST=(A3)SUN, (AA)MOON *4. LIST OF DESIRED EPHEMERIS BODIES 

TEEGIN=2A37640.5 $i JULIAN BEGINNING DATE 

TEND=T BEGIN+5 $$ JULIAN ENDING DATE 


After the merged ephemeris tape is constructed, the set of standard data in 
SUBROUTINE STDATA is loaded, and the input is loaded as shown: 

$ DAT A=l,$ TABLE, 33-DTOFFJ, 34-TOFFT, 711=TIME, 716-X, 717-Y, 718-Z, 
713-VX, 714— VY, 715=VZ, 11.-IM0DE, 713-E, 714-OMEGA, 715-NODES, 

716— IN CL, 717-MA, 718-P, 43-LAT, 44-LONG, 45-AZI, 46-ELEV, 14-ALT, 
47 — VEL, 16-TFILE, 28=TMIN, 153-BODYCD, 177-ELIPS, 30.-M0D0UT, 
27-STEPS, 29-DELMAX, 26-STEPMX, 23-EREF, 24=ERLIMT, 4.-NSAVE, 
5-RECALL, 3-CLEAR, 18,-LOOKX, 22-XL00K, 19.-L00KSW, 20-SWL00K, 

609. -INL00K, 15-END, 31-ATMN, 32-RATM, 49-ROTATE, 417-COEFN, 

163. -ICC, 60-BETA, 50-0BLATN, 73-TB, 93-FLOW, 103-SIMP, 123-AREA, 
143-DELT, 83-RMASS, 113-AEXIT, 133.-IDENT, 48.-LSTAGE, 25-IKICK / 
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B0DYCD=(A5)EARTH, <A4)M00N, (A6) JURITE, (A3)SUN $i BODY NAMES, 1ST IS ORIGIN 
ELIPS=(ALF6) JUPITE, ( ALF3 ) SUN , . 954786L E-3 , 4. 8 IE + 10 , 5 . 191 3995 , $$ ELLIPTIC DATA 

.0486288, . 1765935, .05697 1884,. 40387 194, 2433964. , .6664,4333.7153$$ FOR JUPITER 
C0EFN=0,. 4,0, .6, 1,1. 15306, -.16326, .010204, 8, .5, ,,100, ,10,,, $$ AERO. COEFF. 

100, , .025, , , IOC, , , , , 15,-. 6, .04, ,40, .7 , , , 117, , , , 1E3, 180, , , 1E8, ICC = 24, 14,19,1 $$ 


RMASS=150000,525C0, 23625 $$ 
FLO W=750, 125, 56. 25, 0,56. 25 $$ 
SIMP = 420, 420,420, ,420 $$ 
AEXIT=3,1,.5 $$ 
AREA=7 .5,4,2 $$ 
TB=11 7, 207.9,400, 1E7, 50,3 600 $$ 
CELT=2, 2, 2, 86400,2*600 $$ 
IDENT=,2,3,4,5,6 $$ 
DT OFF J =24 37 640. 5, TOFF T =7/24 $$ 
LAT=28 .280 , L0NG=~80 . 57 1 , ELE V=8 1 . 7$$ 
AZI=64.5, ALT=1C, IM0DE=4 $$ 
M0D0UT=2,DELMAX=50 $$ 
STEPMX=300, OBLATN= ( A5 ) EARTH $$ 
TK I CK= 10 $$ 
R0TATE=7. 29211585 E- 5 $$ 
ATMN=(A5)EARTH,RATM=1E11 $$ 
EREF=lE-5,ERLIMT=5E-5 $$ 


STAGE MASSES 
STAGE FLOW RATES 
STAGE SPECIFIC IMPULSFS 
STAGE ENGINE EX I I AREAS 
STAGE AERODY. REFERENCE AREAS 
STAGE BURNING TIMES 

STAGE INITIAL INTEGRATION STEP SIZES 
STAGE INPUT IDENTIFICATION NUMBERS 
TAKE-OFF DATE AND FRACTION OF DAY 
LATITUDE, LONGITUDE, ELE VAT I ON 
AZIMUTH, ALT I TUDE , I N T EGR A T ION MODE 
MODE OF OUT PU I , TIME INTERVALS OF OUTPUT 
MAXIMUM ALLOWED STEP NUMBER, OBLATE BODY 
TIME OF THE VERTICAL NON-DRAG STEP 
ROTATION RATE OF THE ORIGIN BODY (EARTH) 
ATMOSPHERE NAME, RADIUS OF ATMOSPHERE 
REFERENCE ERROR, LIMIT ERROR 


SUBROUTINE ORDER reorders the list of bodies putting the Sun before Jupiter 
(i.e. , the Sun's position relative to the vehicle must be found before Jupiter's 
relative position can be computed). The elliptic data for finding Jupiter's 
position are relocated according to the computed body list. The gravitational 
constants , p and -/p, are then calculated. The atmosphere belongs to the body 
at the origin (Earth) so that the rotation rate and atmospheric radius are set. 
The final duty of ORDER is to position the merged ephemerides tape at the be- 
ginning of the correct ephemeris. In this case, only one merged ephemeris was 
constructed; nevertheless, it still must be identified and spaced to the begin- 
ning of the data. 

The main program now calls SUBROUTINE STAGE, which is responsible for con- 
trolling the sequencing of the stages for the flight. The data for the first 
stage are set into their proper locations as in example I. Before calling SUB- 
ROUTINE NBODY, however, SUBROUTINE TUBES is called (since IMODE = 4) to trans- 
form the Earth-centered spherical coordinates into rectangular coordinates. In 
addition, TUDES computes the closed- form solution for the initial vertical non- 
drag step. The path is integrated from this point on, where the initial orien- 
tation is specified by the spherical coordinates. The small error introduced by 
this procedure is offset by avoiding the complications associated with integra- 
ting the takeoff. One such difficulty is the thrust-direction specification when 
the velocity is zero, especially if the origin body is rotating. 

The SUBROUTINE STAGE then calls upon SUBROUTINE NBODY to perform the inte- 
gration of the first-stage path. The derivatives are supplied by SUBROUTINE 
EQUATE which, in turn, calls upon SUBROUTINES EPHMRS, ICAO, AERO, THRUST, and 
OBLATE. SUBROUTINE EPHMRS computes the perturbations that result from bodies 
other than the origin body. The positions of the Sun and Moon are determined 
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through use of the merged ephemeris tape, while the position of Jupiter is deter- 
mined by SUBROUTINE ELIPSE, which uses the ellipse data loaded on input cards* 

SUBROUTINE AERO determines the aerodynamic accelerations through use of 
quadratic equations for the lift and drag coefficients and SUBROUTINE ICAO, which 
determines density, pressure, and temperature as functions of altitude. SUB- 
ROUTINE THRUST computes the thrust magnitude as a function of ambient pressure 
(eq. (4)) and then determines the thrust orientation relative to the x,y, z axes. 
Oblateness accelerations are determined in SUBROUTINE OBI/ATE. 

The integration of the first-stage path is terminated by SUBROUTINE STEP 
when t = 117 seconds. Control is then returned to STAGE whereupon the second- 
stage data are set in place for integration of the second-stage path, which is 
terminated by STEP when t = 324. 9 seconds. 

It is required that the third-stage engine cease operating when the eccen- 
tricity of the path equals 1,10. Let it also be required that the output occur 
only every 100 seconds instead of every 50 seconds, as during stages one and two. 
These results may be obtained by placing the following cards after the previous 
set: 


$C=3,CELMAX=10C . $* OUTPUT EVERY LOO SEC. FOR STAGE 3 

L00KX=1226,XLC0K=1. 1,END=1, I NL00K=30 $$ STOP WHEN ECCENTRICITY = 1.1 


These cards are read into the computer after the third- stage data are set in 
place (since IDENT ( 3 ) =3), but before integration of the third-stage path 
begins. The third-stage burning time, 400 seconds, was purposely set high enough 
to allow sufficient time for the eccentricity to reach the value 1. 10. 

To illustrate the input facilities, the coasting third stage will be called 
the fourth stage, the reverse-thrust portion at the Moon a fifth stage, and the 
final coast portion about the Moon a sixth stage. Under these conditions, it 
becomes necessary to. determine the initial masses of these stages. The initial 
masses of the fourth and fifth stages may be computed on the following input 
card, which is placed after the previous cards: 


$0 = 30, $ T r 712 = MASS/ RMASS ( 4 ) = MASS , M ASS tt COMPUTE MASSES FOR STAGES A AND S. 


This card will be read into the computer immediately following the condition of 
e = 1.10, since INLOOIC - 30. 

The fourth-stage path is to be integrated in orbit elements with less output 
than previously required. The following cards are sufficient for these purposes: 
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$D = 4 , I M0CE=-2 • MCD0UT=3, CELMAX=21600 $$ INTEGRATE IN ORBIT ELEMENTS FOR STAGE 4 
STEPS= 1G , TM IN=86400 t* OUTPUT EVERY 6 HOURS TILL 1 DAY, THEN EVERY 1C STEPS 


About a half day later, the vehicle is close enough to the Moon so that the 
coordinate-system origin is translated to the Moon. This translation is accom- 
panied by a shift to rectangular integration variables, since the vehicle is 
approaching the Moon far out on a hyperbolic asymptote. After the origin is 
translated to the Moon, an input card may be read to cause termination of the 
fourth stage when the true anomaly about the Moon is zero: 

it!=lCI ,LG0KX=115C» XLOOK = 0 $$ INTEGRATE UNTIL TRUE ANOMALY IS ZERO 

The fifth-stage path is integrated with reverse thrust until e *= 0.05. 

The angle a is computed to be it by using the COEFTf array* The termination 
of stage five is caused by the cards: 

$D=5»LCCKX=l226»XL0GK=.05»INLOCK=5C $S> STAGE 5, REVERSE THRUST UNTIL E = . 05 

IMCCE=-1 $$ SWITCH TC RECTANGULAR COORDINATES 


The sixth-stage mass is computed by the card: 

$0=5C ,RMASS ( 6 )=MASS $ i COMPUTE MASS FOR STAGE 6. 

In addition, output is desired at 10-minute intervals, which may be accomplished 
with the card: 


$L' = 6 fMCDCUI = 2 »CELMAX = 6C0» I MODE =- 2 $$ OUTPUT EVERY 1C MINUTES FOR STAGE 6. 


The last step output is reproduced as follows: 


S T EP = 181. + 18. ECCENTR ICI TY= 5 . 005671 08E-02 GMEGA=-2. 49327761 

T I ME= 114425.91 SEMILATUS R.= 212Z902.28 TRU A=-3. 08236283 

JDAY= 2437642.1157 MEAN ANOMAl. Y--3 . 0 76206 74 NGDE = - 1 . 6 5 8 88 363 

ALFA = 180.00000 PATH ANGLE=-0. 1 78703 17 INCL = 0.77642872 

EARTH R = 3 . 7524622E 08 0.099065 0.940877 0.323939 
JUPITE R= 8.4530520E 11 0.579731 -0.742897 -0.334688 

V= 1441.76900 R= 2239823.88 REFER-MOON ORBIT i 

VX= 859.314598 X= 804837.336 RMASS= 3004.18549 

V Y= 868.288918 Y=- 1 Z86946 . 89 RCVS.= 0.82317527 

VZ - 765.735352 1- 1020144.20 IJ E L T = 462.85^422 

SUN R= 1 .4697 769 E 11 -0.24,123 -0.890528 -0.386394 
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Name 

Refer- 

ence 

mss ; sun 
mass units 

Radius of 
influence 

Semilatus 

rectum. 

Eccentricity 

Argument of 
pericenter. 

Longitude 

Inclination, 

Julian day of 

Fractional day 
of perihelion 
passage 

Period, 

mean 

solar 

days 




sphere, 

m 

AU 


radians 

ing node, 
radians 


passage 

Mercury 

Sun 

1/6,120,000 

10 8 

0.3707315 

0.205627 

1.1679154 

0.1896133 

0.49924366 

2437 163 

0.283386 

87.969252 

Venus 

Sun 

1/466,645 

6.14X10 8 

.72329863 

.006792 

2.1567353 

.13931743 

.42703751 

2437 132 

.682782 

224.70087 

Mars 

Sun 

1/3,088,000 

5.78X10 8 

1.5104078 

.093369 

5.7966845 

.058500499 

.4310002 

2437 081 

.09531 

686.97964 

Jupiter 

Sun 

1/1047.39 

4.81XL0 10 

5.1913995 

.0486288 

.1765935 

.056971884 

.40587194 

2433 964 

.6664 

4333.7153 

Saturn 

Sun 

1/3500 

5.46X10 10 

9.5554288 

.0509895 

1.4938359 

.10416467 

.39404007 

2431 246 

.5163 

10,829.478 

Uranus 

Sun 

1/22,869 

5.17X10 10 

19.100903 

.0457866 

2.9848628 

.032257032 

.41321621 

2409 019 

.272 

30,587.016 

Neptune 

Sun 

1/18,889 

8 . 61X10 10 

30.197622 

.0045616 

.3302296 

.061416599 

.38947933 

2404 118 

.842 

60,612.183 

Pluto 

Sun 

1/400,000 

3.81X10 10 

36.969138 

.2502358 

3.1999771 

.76630286 

.41231716 

1639 376 

.44 

904,658.99 

Sun 

Earth 

1.0 

10 20 

.99972025 

.016716 

4.923277 

0 

.4092062 

2436 937.1 

0 

365.256 



























TABLE II 


PROGRAM CONTROL PARAMETERS 


Control 

variables 

COMMON 

location 

Possible values 

Setting 

Description of use 

ASYMPT 

A(7) 

0.0 or 1.0 

Internal 

Normally equal to 0.0; set equal to 1.0 in SUBROUTINE EQUATE when Kepler* s equation 
fails to converge for e > 1, and then used to control branching in NBODY for 
IMODE = 3. 

ATMN 

A (21) 

Any ALF coded body name 

Input 

Contains name of body that is to have an atmosphere. Causes SUBROUTINE AERO to be 
called in SUBROUTINE EQUATE if object la within that atmosphere. 

CLEAR 

0(3) 

Any value 

Input 

If CLEAR = 0, SUBROUTINE STDATA Is called from MAIN; if CLEAR ^ 0, SUBROUTINE STDATA 
is bypassed. STDATA clears the A, XPRIM, and XPRIMB arrays. 

CONSTU 

A(32) 

>0, ~10“ 8 to ~10" 2 radian 

STDATA: 1CT 6 

input 

Controls branching in SUBROUTINE EQUATE, which determines how accurate eccentric 
anomaly will be computed by Kepler’s equation. 

CONSU 

A(31) 

>0, ~10 -8 to ~10‘ 2 radian 

STDATA: 10“ 6 

input 

Similar to CONSTU except that it is used in SUBROUTINE ELIPSE for perturbing bodies 
instead of object. 

DELMAX 

A(19) 

Any number of seconds 

Input 

If MODOUT s» 2 or 3, output is given only at intervals of DELMAX. 

END 

A(5) 

Any number 

Input 

Used when LOOKX ^ 0. After the condition C(LOOKX) = XLOOK is met, control is sent 
to main program if END < 0, to complete the stage in process if END = 0, or begin 
integrating the next stage if END > 0. 

EREF 

A(13) 

Any number 

STDATA: 10" 6 

input 

Desired error value. Error control predicts step size such that E2 *» EREF. If 
EREF < 0, it will be treated as +EREF; however, error data will be recorded and 
printed. 

ERLIMT 

A(14) 

Any plus number 

STDATA: 3x10“® 

input 

Maximum error value that allows step in question to be passed as good step. If 
E2 > ERLIMT, step is recomputed with smaller step size. 

ETOL 

A(30) 

Positive number of order 
0.01 

STDATA: 0.01 
input 

If eccentricity falls in region 1±ET0L and integration is in orbit elements, inte- 
gration mode is switched to temporary rectangular until eccentricity falls outside 
this region. 

FILE 

B(22) 

Any plus Integer 

Internal 

Set equal to 10.0 In SUBROUTINE ORDER if tape data is used to determine positions, 
velocities, and attractions of perturbing bodies. Then read as file number of tape 3. 
See TFILE. 

100(10) 

A(153) 

Any fixed-point integer 

Input internal 

Index of independent variable in COEFN array used in FUNCTION QUAD. For each set of 
coefficients there is an ICC. They are set at input time and are reset each time 
QUAD is called. 

IMODE 

A(l) 

1,2, 3,4, -1,-2, -3, -4 
(fixed point) 

STDATA: 1 

input internal 

Indicates integration mode. Must agree with input data (if input data is rectangular, 
IMODE should equal 2 or -2). Values indicate: 

1 = orbit elements -1 « orbit elements, change to rectangular 

2 a rectangular variables -2 = rectangular, change to orbit elements 

3 = temporary rectangular -3 = orbit, change to temporary rectangular 

4 = Earth spherical change -4 a Earth spherical, change to orbit elements 

to rectangular 

LOOKX 

A(8) 

Fixed-point Integer 

Input 

The program searches for the value C(LOOKX) = XLOOK if LOOKX 5^ 0. The search begins 
when C( LOOKSW) > SWLOOK. If and when C(LOOK) = XLOOK output occurs and program 
control is directed by the parameter END. 

LOOKSW 

A(9) 

Fixed-point integer 

STDATA: 711 

input 

The search for C(LOOKX) =« XLOOK does not begin until C(LOOKSW) > SWLOOK. Typically, 
time is the deciding parameter; therefore, STDATA sets LOOKSW = 711. 

MODOUT 

A(20) 

1,2, 3, 4 (fixed point) 

STDATA: 4 

input internal 

MODOUT = 1 Output every n th step (n = STEPS) until TIME a TMIN, then shift to mode 2. 
= 2 Output at time intervals of DELMAX until TIME = TMAX. 

a 3 Output at time intervals of DELMAX until TIME = TMIN, then shift to mode 4. 
= 4 Output every n th step until TIME » TMAX. 

NSAVE 

0(4) 

0,1,2,. . .,10 (fixed point) 

Input 

If the initial data (arrays A, XPRIM, and XPRIMB) for the n th stage is to be saved, it 
will occur Just prior to the n™ stage integration if NSAVE = NSTAGE, the stage 
index. NSAVE = 0 is ignored (no stage data will be saved). 

OBLATN 

A(40) 

Any ALF coded body name 

Input 

If oblateness effects are to be considered, loading a body name will cause SUBROUTINE 
OBLATE to be called from SUBROUTINE EQUATE when OBLATN matches reference body. 

RECALL 

0(5) 

Any value 

Input 

Tf HRflAT.T. ^ 0.0, "starting" data will be restored from D array in MAIN. See NSAVE. 

SIGNAL 

B(31) 

0.0 or 1.0 

Internal 

If and when C( LOOKX) = XLOOK, SIGNAL is set to 1.0 for use in any of the subroutines 
EXTRAS, EXTRA, STAGE, and so forth. EXTRA resets SIGNAL « 0. 

STEPMX 

A (16) 

Any plus number 

STDATA: 100.0 

input 

If (STEPGO + STEPNO ) > STEPMX, problem terminates. 

STEPS 

A(17) 

Any plus number 

STDATA: 1.0 

input 

Used when MODOUT « 1 or 4. Output will occur at every n th step where n » STEPS. 

SWLOOK 

A(10) 

Any number 

Input 

Used when LOOKX / 0. Value of the parameter C(LOOKSW) to be equaled or exceeded 
before the search for C(LOOK) = XLOOK begins. 

TAPE 3 

0(2) 

0.0 or 3.0 

Input Internal 

If "working" ephemerls tape is to be made, TAPE 3 must be set equal to zero through 
input contained in SUBROUTINE TAPE. If no tape is made, or after tape is made, 

TAPE 3 is set to 3.0. 

TFILE 

A(6) 

Any plus integer 

STDATA: 1.0 

Input 

Selects which file of "working" ephemerls tape is to be used. ORDER positions tape In 
correct position by matching desired file number (TFILE) with code word (FILE) 
written at beginning of each file on tape. 

TMAX 

B(4) 

Any number in seconds 

Internal 

When time » TMAX a stage is terminated. 

TMIN 

A(1S) 

Any number in seconds 

Input 

When time * TMIN output mode is changed. See MODOUT. 

TRSFER 

B(8) 

0.0 or 1.0 

Internal 

Normally TRSFER = 0.0, but when origin is being translated, TRSFER =*1.0, which causes 
SUBROUTINES EPHMRS and ELIPSE to compute velocities as well as positions. 

TTEST 

A(54) 

Any number in seconds 

Internal 

When integration mode is changed to temporary rectangular, TTEST is set as time at 
which program will begin checking for return to orbit elements. See NBODY part 7D. 

XLOOK 

A(12) 

Any number 

Input 

The value of C( LOOKX) that 13 searched for as the trajectory integration proceeds 
providing LOOKC ^0. 
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TABLE III. - BASIC OUTPUT FORMAT 
(a) Sample output 


STEP= 0. + 0. 
TIME= 0. 

JDAY= 2437640.8350 
ALFA= 0. 

ALT.= 0.1875000 


ECCENTRICITY= 
SEMILATUS R.— 
MEAN ANOMALY= 0. 
PATH ANGLE= 89 


R PATH ANGLE= 89.9209976 


1.00000000 0MEGA=~2. 64801353 

1 . 93844640E-09 TRU A= 3.14159262 
NODE= 2.02516600 
9209976 INCL= 1.57079409 

DRA 0= 4. 99665982E-03 


SUN 


R= 1.4728028E 11 -0.261730 -0.885466 -0.383989 


V= 9. 99999976E-02 R= 6373346.50 
3. 8622435 9E-02 X=-2463371.37 
VY= 7 . 90702742E-02 Y= 5043168.50 
VZ= 4. 74994606E-02 Z= 3019569.50 


MOON 


REFER=EARTH RECTAN 2 
RMASS= 150000.000 
REVS.= 0.32231534 
DELT=* 6.00000000 
VR= 9 . 99999976E-02 0= 1.49946962 PUSH= 0. 

R= 3. 9293912E 08 -0.387660 -0.874846 -0.290456 


(b) Parameter Identification 


Output format mnemonic 

Identification 

STEP 

Count of total number of successful integration steps 
to left of plus sign and count of failures on right 

TIME 

Time since beginning of integration process, t, sec 

JDAY 

Current Julian date 

ECCENTRICITY 

Osculating orbit eccentricity, e 

SEMILATUS R. 

Semllatus rectum of osculating orbit, p, m 

MEAN ANOMALY 

Mean anomaly of osculating orbit, M 

OMEGA 

Argument of pericenter, u>, radians 

TRU A 

True anomaly of osculating orbit, v, radians 

NODE 

Equatorial longitude of ascending node of osculating 
orbit, a, radians 

INCL 

Orbit inclination referred to mean equator and 
equinox of 1950.0, i, radians 

ALFA 

Angle between thrust and velocity, a , deg 

PATH ANGLE 

Angle between path and local horizontal, deg 

V, VX, VY, VZ 

Velocity and its x,y,z. components, V, m/sec 

R, X, Y, Z 

Radius and Its x,y,z components, r, m 

REFER 

Name of reference body, followed by Integration 
mode, IMODE 

RMASS 

Vehicle mass, m, kg 

REVS. 

Revolutions past x-axis 

DELT 

Step 3ize for current step, h, sec 

ALT. 

Altitude above Earth, m 

R PATH ANGLE 

Relative path angle, relative to Earth, deg 

DRAG 

Total drag force, D, newtons 

YR 

Velocity relative to rotating reference body 

G 

Total Earth g's acting on longitudinal axis of missile 

PUSH 

Thrust force, newtons 

BNAME(i)R 

Vehicle to perturbing body distance, r^, plus direc- 
tion cosines 





TABLE IV. - COMMON ALLOCATION 


THE COMMON ARRAY C IS ARRANGED IN SUBARRAYS AS FOLLOWS. 


C( II) 
C( 711) 
C( 911) 
CUlll) 
C{ 1911) 
C ( 2 1 1 1 ) 


Cl 710) * A 
C( 910) » XPRIM 
Cl 1110) = XPRIMB 
C ( 1910) = B 
C ( 2 1 10 ) = TABLE 
C ( 32 10 ) = 0 


(Those parameters whose initial values must be identical on different flights if the trajectories 
are to be identical) 

(Most significant half of the double-precision integration variables) 

(Least significant half of the double-precision Integration variables) 

(Those parameters whose initial values need not be identical on different flights if the tra- 
jectories are to be identical) 

(Table required by the input routine to locate input data) 

(Array of initial values for A,XPRIM, and XPRIMB if restart facility is being used) 


ALLOCATION FOR THE ARRAY A 


1 

I MODE 

NE0 

NSTAGE 

ALT 

END 

TFILE 

ASYMPT 

LOOKX 

LOOKSW 

SWLOOK 

11 

XTOL 

XL0CK 

EREF 

ERLIMT 

TKICK 

STEPMX 

STEPS 

TMIN 

DELMAX 

MODOUT 

21 

ATMN 

RATM 

DTOFFJ 

TOFF T 

RE 

OBLATJ 

OBLATD 

OBLATH 

AU 

E10L 

31 

CONSU 

CCNSTU 

LAT 

LONG 

AZ1 

ELEV 

VEL 

LSTAGE 

ROTATE 

OBLATN 

41 

STEPG0 

STEPN0 

DEL 

SPD 

TTOL 

GASFAC 

SQRDK1 

REVS 

ALPHA 

BETA 

51 

AK 

- 

- 

TTEST 

AW 

- 

- 

- 

U 

INO 

61 

- 

- 

TB 

- 

- 

- 

- 

_ 



71 

- 

- 

RMASS1 

- 

- 

- 

* 

_ 

_ 

_ 

81 

- 

- 

FLOW! 

- 

- 

_ 

_ 

_ 


_ 

91 

- 

- 

SIMP1 

- 

- 

- 

- 

_ 

_ 

_ 

101 

- 

- 

AEXIT1 

- 

- 

_ 

_ 



_ 

111 

- 

- 

AREA 1 

- 

- 

_ 

_ 

_ 


_ 

121 

- 

- 

IDENT 

- 

- 

- 

_ 

_ 

_ 

_ 

131 

- 

- 

DELT1 

- 

- 

- 

_ 

_ 

_ 


141 

- 

- 

BOOYCD 

- 

- 

- 

_ 

_ 

_ 

_ 

151 

- 

- 

ICC 

- 

- 

- 

_ 

_ 

_ 

_ 

161 

- 

- 

CD I 

CL 

CD 

PUSH 

EL I PS 

- 

_ 

_ 

171 

- 

- 

- 

- 

- 

- 

_ 

_ 

_ 

_ 

181 

- 

- 

- 

- 

- 

- 

_ 

_ 


_ 

191 

- 

- 

- 

- 

- 

_ 

_ 

_ 

_ 

_ 

201 

- 

- 

- 

_ 

- 

_ 

_ 

_ 

_ 


211 

- 

- 

- 

- 

- 

_ 

- 

_ 


_ 

221 

- 

- 

- 

- 

- 

- 

_ 

_ 

_ 

_ 

231 

- 

- 

- 

- 

- 

- 

_ 

_ 

_ 

_ 

241 

- 

- 

- 

- 

- 

_ 

_ 

_ 

_ 

_ 

251 

- 

- 

- 

- 

- 

_ 


_ 

_ 

_ 

261 

- 

- 

- 

- 

- 

- 

_ 


_ 

_ 

271 

- 

- 

- 

- 

- 

- 

_ 

- 

_ 

_ 

281 

- 

- 

- 

- 

- 

- 

PNAME 

- 

- 

- 

291 

- 

- 

- 

- 

- 


- 

- 


_ 

301 

- 

- 

- 

- 

- 

- 

- 

- 

- 

_ 

311 

- 

- 

- 

- 

- 

- 

REFER 


_ 

_ 

321 

- 

- 

- 

- 

- 

- 

- 

_ 

_ 

_ 

331 

- 

- 

- 

- 

- 

- 

- 

- 

_ 


341 

- 

- 

- 

- 

- 

- 

AMASS 

- 

_ 


351 

— 

- 

- 

- 

- 

— 

- 

_ 

_ 

_ 

361 

- 

- 

- 

- 

- 

- 

_ 

_ 

_ 

_ 

371 

- 

- 

- 

- 

- 

- 

RCRIT 

- 

_ 

_ 

381 

- 

- 

- 

- 

- 

- 

_ 

- 

_ 

_ 

391 

- 

- 

- 

- 

- 

- 

_ 

- 


_ 

401 

- 

- 

- 

- 

- 

- 

COEFN 

_ 

_ 

_ 

411 

- 

- 

- 

- ■ 

— 

- 

_ 

_ 

_ 

_ 

421 

- 

- 

- 

- 

- 

- 

_ 

_ 

_ 

_ 

431 

- 

- 

- 

- 

- 


_ 

- 

_ 

_ 

441 

- 

- 

- 

- 

- 

- 

_ 

_ 

_ 

_ 

451 

- 

- 

- 

- 

- 

- 

_ 

_ 

_ 

_ 

461 

- 

- 

- 

- 

- 

- 

- 

_ 

_ 

_ 

471 

- 

- 

- 

- 

- 

- 

_ 

_ 

_ 


481 

- 

- 

- 

- 

- 

- 

_ 


_ 

_ 

491 

- 

- 

- 

- 

- 

- 

- 


_ 

_ 

501 

- 

- 

- 

- 

- 

- 

- 

- 

_ 

_ 

511 

- 

- 

- 

- 

- 

- 


- 


_ 

521 

- 

- 

- 

- 

- 

- 

_ 

- 



531 

- 

- 

- 

- 

- 

- 

- 

- 

_ 

_ 

541 

- 

- 

_ 

_ 

- 

_ 

_ 

_ 

_ 

_ 

551 

- 

- 

- 

_ 

- 

_ 

_ 

- 

_ 

_ 

561 

- 

- 

- 

_ 

- 

- 

- 

_ 

- 

_ 

571 

- 

- 

- 

- 

- 

_ 

- 

- 

• 

_ 

581 

- 

- 

- 

- 

- 

_ 

- 

_ 

- 

_ 

591 

601 

SWITCH 

- 

“ 

* 

“ 


- 

- 

INLUOK 

NCASES 


611 

621 

631 

641 

651 

661 

671 

681 

691 


94 



TABLE IV, 


Continued. COMMON ALLOCATION 




ALLOCATION FOR THE ARRAY B 


1 

DELT 

SIMP 

AEXIT 

TM AX 

FLOW 

AREA 

RESORD 

TRSFER 

OLDUEL 

A1 

11 

A2 

ACGEF1 

AC0EF2 

AC0EF3 

H2 

SPACES 

ERLOG 

L2 

KSUfci 

TABLT 

21 

REVQLV 

FILE 

RATMOS 

NSTART 

CHAMP 

EPAR 

EXMODE 

EMONE 

DNS1 IY 

PSI 

31 

SIGNAL 


PRESS 

IM 

SQROK 

GK2M 

GKM 

VMACH 

DONE 

TRU 

41 

NBODYS 

MBOCYS 

ZN 

QMAX 

RSORD 

SINALF 

SINBET 

COSALF 

CUSbET 

PMAGN 

51 

INDERR 

SINTRU 

COSTRU 

SINCL 

C1NCL 

SINV 

COSV 

RATIO 

0 

PAR 

61 

- 


COMPA 

- 

- 

FORCE 

- 

- 

DRAG 

- 

71 

- 

XIFT 

- 

- 

OBLAT 

- 

- 

QX 

- 

- 

81 

RADIAL 

CIRCUM 

ZORMAL 

P 

- 

- 

AMC 

- 

- 

AM 

91 

AMSCRD 

VX 

VY 

vz 

V 

VSURD 

VATM 

- 

- 

VU 

101 

VCSCRD 

R 

- 

- 

- 

- 

- 

- 

- 

XWHIJLfc 

111 

- 

- 

- 

- 

- 

ORBELS 

- 

- 

- 

- 

121 

- 

BNAME 

- 

- 

- 

- 

- 

- 

- 

EFMRS 

131 

- 

- 

- 

- 

- 

- 

BMASS 

- 

- 

- 

141 

- 

- 

- 

- 

KBCRir 

- 

- 

- 

- 

- 

151 

- 

- 

bodyl 

- 

- 

- 

- 

- 

- 

- 

161 

- 

- 

TIM 

- 

- 

- 

- 

- 

- 

TDEL 

171 

- 

- 

- 

- 

- 

- 

I BODY 

- 

- 

- 

181 

- 

- 

- 

- 

NEFMRS 

- 

- 

- 

- 

- 

191 

- 

- 

RB 

- 

- 

- 

- 

- 

- 

- 

201 

— 

— 

— 

— 

— 

— 

— 

— 

— 

— 

211 

- 

- 

- 

- 

- 

- 

XP 

- 

- 

- 

221 

— 

— 

— 

— 

— 

— 

— 

— 

— 

- 

231 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

241 

VEFM 

- 

- 

- 

- 

- 

- 

- 

- 

- 

251 

— 

— 

~ 

— 

— 

— 

— 

— 

— 

— 

261 

- 

- 

- 

- 

TUATA 

- 

- 

- 

- 

- 

271 

— 

— 

— 

— 

— 

— 

— 

— 

— 

— 

281 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

291 

— 

— 

— 

~ 

— 

— 

- 

— 

— 

- 

301 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

311 

— 

— 

— 

— 

— 

— 

— 

— 

— 

— 

321 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

331 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

341 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

351 

- 

- 

. - 

- 

- 

- 

- 

- 

- 

- 

361 

_ 

- 

- 

- 

- 

- 

- 

- 

- 

_ 

371 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

381 

- 

- 

- 

- 

- 

- 

- • 

- 

- 

- 

391 

PUSHO 

EX! TA 

RAMC 

- 

- 

- 

- 

PSIR 

OUTPUT 

RETURN 

401 

X 

- 

- 

- 

- 

- 

- 

- 

- 

- 

411 

— 

— 

— 

— 

— 

— 

— 

— 

— 

— 

421 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

431 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

441 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

451 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

461 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

471 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

481 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

491 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

501 

XOOT 

- 

- 

- 

- 

- 

- 

- 

- 

- 

511 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

521 

- 

- 

- . 

- 

- 

- 

- 

- 

- 

- 

531 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

541 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

551 


- 

- 

- 

- 

- 

- 

- 

- 

- 

561 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

571 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

581 

- 

- 

_ 

- 

_ 

- 

- 

_ 

_ 

_ 

591 

- 

- 

- 

- 

- 

- 

- 

- 

- 

_ 

601 

XINC 

- 

- 

- 

- 

- 

- 

- 

- 

- 

611 

— 

— 

- 


- 

— 

— 

- 

— 

— 

621 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

631 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

641 

- 

- 

- 

- 

- 

- 

- 

- 

_ 

_ 

651 

- 

- 

- 

- 

- 

- 

- 

- 

- 

_ 

661 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

671 

- 

- 

- 

- 

- 

- 

- 

- 

- 

_ 

681 

- 

- 

- 

- 

- 
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- 

- 
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- 

691 

701 

711 

721 

731 

741 

751 

761 

771 

781 

791 
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ALLCCAT ICK FOR THE ARRAY C 


TABLE IV. - Continued. COMMON ALLOCATION 


1 

NCASE 

TAPE3 

CLEAR 

NSAVE 

RECALL 

11 

IMCCE 

NEC 

NS T AGE 

ALT 

END 

21 

XTOL 

XLOCK 

EREF 

ERLIMT 

TKICK 

31 

ATMK 

RATM 

DTOFFJ 

TOFFT 

RE 

41 

CONSU 

CCNSTU 

LAT 

LONG 

AZI 

51 

STEPGO 

STEPNO 

DEL 

SPO 

T TOL 

61 

AK 

- 

- 

TTEST 

AW 

71 

- 

- 

TB 

- 


81 

- 

- 

KMASS1 

- 

- 

91 

- 

- 

FLOW 1 

- 

_ 

101 

- 

- 

S1MP1 

- 

_ 

111 

- 

- 

AEX1T1 

- 

_ 

121 

- 

- 

AREA1 

- 

_ 

131 

- 

- 

IDENT 

- 

_ 

141 

- 

- 

DEL T 1 

- 

_ 

151 

- 

- 

RODYCD 

- 

_ 

161 

- 

- 

ICC 

- 

_ 

171 

- 

- 

CD I y j— 

CL 

CD 

181 

- 

- 

- 

_ 


191 

- 

- 


_ 

_ 

201 

- 

- 

_ 

_ 

_ 

211 

- 

- 

_ 


_ 

221 

- 

- 

_ 



231 

- 

- 

- 

_ 

_ 

241 

- 

- 

_ 

_ 


251 

- 

- 

- 

- 

_ 

261 

- 

- 

_ 

_ 


271 

- 

- 


_ 

_ 

281 

- 

- 

- 

_ 

_ 

291 

- 

- 

_ . 


_ 

301 

- 

- 

_ 

_ 

_ 

311 

- 

- 

- 

_ 

_ 

321 

- 

- 



_ 

331 

- 

- 

- 

_ 

_ 

341 

- 

- 

- 

_ 

_ 

351 

- 

- 

_ 

_ 

_ 

361 

- 

- 

- 

_ 

_ 

371 

- 

- 

- 

- 

_ 

381 

- 

- 

- 

_ 

_ 

391 

- 

- 

- 

_ 

_ 

401 

- 

- 

_ 

_ 

_ 

411 

- 

- 

- 

_ 

_ 

421 

- 

- 

- 

_ 

_ 

431 

- 

- 

- 

_ 

_ 

441 

- 

_ 

- 

_ 

_ 

451 

- 

- 

_ 

_ 

_ 

461 

- 

- 

_ 

_ 

_ 

471 

- 

_ 

_ 

_ 

_ 

481 

- 

- 

_ 

_ 

_ 

491 

- 

_ 

_ 


_ 

501 

- 

_ 

_ 

_ 

_ 

511 

- 

_ 

_ 

_ 

_ 

521 

- 

~ 



_ 

531 

- 

- 

_ 

_ 

_ 

541 

- 

- 

_ 

_ 

_ 

551 

- 

- 

_ 

_ 


561 

- 

- 

_ 

_ 

_ 

571 

- 

_ 


_ 

_ 

581 

- 

- 

_ 

_ 

_ 

591 
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- 

_ 

_ 


601 

611 

621 

631 

641 

651 

661 

671 

681 

691 

701 

SWITCH 





711 

XPRIM 

- 

- 

- 

_ 


Tp I*-E asyhpt lookx looksw swlook 

STERMX STEPS (MIN DELftAX MODOuf 

OBLAIJ OBLATO G8LATH AU ETOL 

ELEV VEL LSTACC ROTATE ObLAIN 

GASFAC SQRDK1 KEVS ALPHA BETA 

U [NO 


PUSH EL I PS 


PNAMf 


REFER 


AMASS 


RCRII 


COEFN 


INLOOK NCASES 
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TABLE IV. - Continued. COMMON ALLOCATION 


721 

- 

- 

- 


- 

- 

- 

- 

- 

- 

731 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

741 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

751 

- 

- 

- 

- 

- 

- 

- 

- 

* 

- 

761 

- 

- 

- 

- 

- 

- 

- 


- 

- 

771 

- 

- 

- 

- 

- 

- 

- 

- 

- 

“ 

781 

- 

- 

- 

- 

- 

- 

- 

- 

“ 

~ 

791 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

801 

- 

- 

- 

- 

- 

- 

- 

- 

- 

“ 

611 

- 

— 

- 

- 

- 

- 

- 

- 

- 

- 

821 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

831 

- 

- 

- 

- 

- 

- 

- 

- 

- 

“ 

841 

- 

- 

- 

- 

- 

- 

- 

- 

“ 

- 

851 

- 

- 

- 

- 

- 

- 

- 

- 

“ 

- 

861 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

871 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

881 

- 

- 

- 

- 

- 

- 

- 

- 

- 

“ 

891 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

901 

- . 

- 

- 

- 

- 

- 

- 

- 

- 

- 

911 

X PR I KB 

- 
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- 

- 

- 

- 

- 

- 

- 

921 

- 

- 

- 

- 

- 

- 

- 

- 

" 

- 

931 

- 

- 

- 

- 

- 

- 

** 

- 

- 

- 

941 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

951 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

961 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

971 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

981 

- 

- 

- 

- 

- 

- 

- 

- 

- 


991 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

1001 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

1011 
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- 

- 

- 

- 

- 

- 

- 

- 

- 

1021 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

1031 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

1041 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

1051 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

1061 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

1071 

- 

- 

- 

- 

- 

— 

- 

- 

- 

- 

1081 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 
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- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

1101 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 

1111 

DELT 

SIMP 

ACXIT 

tmax 

FLOW 

AREA 

RESWRD 

IRSFCR 

OLDDEL 

A 1 

1121 

A2 

ACCEF1 

AC0EF2 

AC0EF3 

H2 

SPACES 

ERLOG 

E2 

K SUB 

TABLT 

1131 

REVOLV 

FILE 

R ATMOS 

NSTART 

CHAMP 

6PAR 

EXMODE 

EMONC 

DNS I TY 

PSI 

1141 

SIGNAL 


PRESS 

TM 

SQRDK 

GK2M 

GKM 

VMACH 

DONE 

TKU 

1151 

NBODYS 

MBCCYS 

ZN 

QMAX 

RSQRO 

SINALF 

SINBET 

CQSAlF 

COSbEI 

PMAGN 

1161 

INDERR 

SINT RU 

COSTRU 

SINCL 

CINCL 

SINV 

COSV 

RATIO 

0 

PAR 

1171 

- 

- 

COMPA 

- 

- 

FORCE 

- 

- 

DRAG 

- 

1181 

- 

XIFT 

- 

- 

OBLAT 

- 

- 

OX 

- 

- 

1191 

RAOIAL 

CIRCUM 

70RMAL 

P 

- 

- 

AMC 

- 

- 

Am 

1201 

AMSCRD 

VX 

VY 

vz 

V 

VSGRD 

VATM 

- 

- 

VO 

1211 

V CSCRC 

R 

- 

- 

- 

- 

- 

- 

- 

XkHGLC 

1221 

- 

- 

- 

- 

- 

ORBELS 

- 

- 

- 

- 

1231 

- 

BNAKE 

- 

- 

- 

- 

- 

- 

- 

EFMRS 

1241 

- 

- 

- 

- 

- 

- 

BMASS 
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- 

- 

1251 

- 

- 

- 

- 

RBCRH 

- 

- 

- 

- 

- 

126L 

- 

- 

BODYL 

- 

- 

- 

- 

- 

- 

- 

1271 

- 

- 

TIM 

- 

- 

- 

- 

- 

- 

TDEL 

1281 

- 

- 

- 

- 

- 

- 

I BODY 

- 

- 

- 

1291 

- 

- 

- 

- 

NEFMRS 

- 

- 

- 

- 

‘ - 

1301 

- 

- 

RB 

- 

- 

- 

- 


- 

- 

1311 

- 

- 

- 

- 

- 

- 

- 

- 

- 

- 
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TABLE IV. - Continued. COMMON ALLOCATION 


1321 - 

1331 - 

1341 - 

1351 VEFK 
1361 - 

1371 - 

1381 - 

1391 - 

1401 - 

1411 - 

1421 - 

1431 - 

1441 - 

1451 - 

1461 - 

1471 - 

1481 - 

1491 - 

1501 PUSHO 
1511 X 
1521 - 

1531 - 

1541 - 

1551 - 

1561 - 

1571 ~ 

1581 - 

1591 - 

1601 - 
1611 XDOT 
1621 - 
1631 - 

1641 - 

1651 - 

1661 - 
1671 - 

1681 - 
1691 - 

1701 - 

mi xinc 

1721 - 

1731 - 

1741 - 

1751 - 

1761 - 

1771 - 

1781 - 

1791 - 

1801 - 
1811 
1821 
1831 
1841 
1851 
1861 
1871 
1881 
1891 
1901 

1911 TABLE 


EXITA 


RAMC 


XP 


rOATA 


psix outpot 


RETURN 
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TABLE IV. - Continued. COMMON ALLOCATION 


1921 - 

1931 - 

1941 - 

1951 - 

1961 - 

1971 - 

1981 - 

1991 - 

2001 - 
2011 - 
2021 - 
2031 - 

2041 - 

2051 - 

2061 - 
2071 - 

2081 - 
2091 - 

2101 ~ 
2111 D 
2121 - 
2131 - 

2141 - 

2151 - 

2161 - 
2171 - 

2181 - 
2191 - 

2201 - 
2211 - 
2221 - 
2231 - 

2241 - 

2251 - 

2261 - 
2271 - 

2281 - 
2291 - 

2301 - 

2311 - 

2321 - 

2331 " 

2341 - 

2351 - 

2361 - 

2371 - 

2381 * 

2391 - 

2401 - 

2411 - 

2421 - 

2431 - 

2441 - 

2451 - 

2461 - 

2471 - 

2481 - 

2491 - 

2501 - 

2511 - 
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TABLE IV. - Concluded. COMMON ALLOCATION 


2521 - 

2531 - 

2541 - 

2551 - 

2561 - 

2571 - 

2581 - 

2591 - 

2601 - 
2611 - 
2621 - 
2631 - 

2641 - 

2651 - 

2661 - 
2671 - 

2681 - 
2691 - 

2701 - 

2711 - 

2721 - 

2731 - 

2741 - 

2751 - 

2761 - 

2771 - 

2781 - 

2791 - 

2801 “ 
2811 “ 
2821 - 
2831 “ 

2841 - 

2851 - 

2861 - 
2871 “ 

2881 - 
2891 - 

2901 - 

2911 - 

2921 ~ 

2931 - 

2941 - 

2951 - 

2961 - 

2971 - 

2901 - 

2991 - 

3001 - 

3011 - 

3021 - 

3031 - 

3041 - 

3051 - 

3061 - 

3071 - 

3081 - 

3091 - 

3101 - 

3111 - 

3121 - 

3131 - 

3141 - 

3151 - 

3161 - 

3171 - 

3181 - 

3191 - 

3201 - 
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TABLE V. - ELEMENTS OF INTEGRATION VARIABLE ARRAY XPRIM 


[XPRIM 9 to 100 are left for expansion* ] 


Integration 

variables 

XPRIM 

1 

2 

3 

4 

5 

6 

7 

8 

Rectangular 

variables 

Time 

Mass 

x-Component 
of velocity 

y-Component 
of velocity 

z-Component 
of velocity 

x-Component 
of position 

y-Component 
of position 

z-Component 
of position 

Orbit 

elements 

Time 

Mass 

Eccentricity 

Argument of 
pericenter 

Longitude of 

ascending 

nodes 

Orbit in- 
clination 

Mean anomaly 

Semilatus 

rectum 































TABLE VI. - ASSUMED VALUES OE ASTRONOMICAL CONSTANTS 


Constant 

Assumed value 

FORTRAN 

name 

COMMON 

location 

Astronomical unit* m 

1. 49599X10 11 

AU 

A(29) 

Gravitational constant of the Sun* AU^/day^ 

2, 959122083X1CT 4 

SQKDK1 

A(47) 

Equatorial Earth radius, m 

6378165. 

RE 

A(25) 

Earth oblateness coefficient, J 

1. 62345X10 -3 

OBLATJ" 

A(26) 

Earth oblateness coefficient, Q) 

7.875X10- 6 

OBLATD 

A(27) 

Earth oblateness coefficient, H 

-5. 75X10- 6 

OBLATE 

A(28) 

Earth radii per AU 

4.26546512X10" 5 

ERTOAU 

®C(3) 

Day,- sec 

86400 

SPD 

A(44) 

Mass, reciprocal sun mass units: 




Sun 

1.0 

AMASS(l) 

A(347) 

Mercury 

6,120,000 

AMASS (2) 

A(348) 

Venus 

408,645 

AMASS(3) 

A( 349 ) 

Earth 

332951, 3 

AMASS (4) 

A(350) 

Mars 

3,088,000 

AMASS (5) 

A(35l) 

Jupiter 

1047, 39 

AMASS (6) 

A( 352 ) 

Saturn 

3500. 0 

AMASS (7 ) 

A(353) 

Uranus 

22,869 

AMASS(8) 

A(354) 

Neptune 

18,889 

AMASS(9) 

A( 355 ) 

Pluto 

400,000 

AMASS (10) 

A(356) 

Moon 

AMASS(4) X 81,375 

AMASS (11) 

A(357) 

Earth-Moon 

AMASS(4) + AMASS(ll) 

AMASS(12) 

A(358) 

Sphere- of- influence radii, m; 




Sun 

1.0X10 20 

RCRIT(l) 

A(377) 

Mercury 

1.0X10 8 

RCRIT(2) 

A(378) 

Venus 

6. 14X10® 

RCRIT(3) 

A(379) 

Earth 

9. 25X10 8 

RCRIT(4) 

A(380) 

Mars 

5. 78X10° 

RCRIT(5) 

A(38l) 

Jupiter 

4, 81X10 10 

RCRIT( 6 ) 

A(382) 

Saturn 

5.46X10 10 

RCRIT( 7 ) 

A(383) 

Uranus 

5.17X1010 

RCRIT(8) 

A(384) 

Neptune 

8. 61X10 10 

RCRIT(9) 

A(385) 

Pluto 

3. 81X10 10 

RCRIT(IO) 

A(386) 

Moon 

1. 60X108 

RCRIT(ll) 

A(387) 


location 

pendent 


relative to COMMON of SUBROUTINE TAPE (TAPE has a COMMON that is inde- 
of all other subroutines). 
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Body 

Source 

End date 

Number 
of fits 

Average, 

days/fit 

Average, 
deg/ fit 

Source 

checked 

against 

Average 

error 

Gregorian 

Julian 

Venus 

Themis 

Oct. 31, 2000 

2451 848.5 

968 

15 

24 

JPL 

1.7 

Earth-Moon 



Oct. 31, 2000 

2451 848.5 

962 

15 

15 

JPL 

1.8 

bary center 













Sun 

1 

f 

Nov. 24, 2000 



1821 

8 

8 

JPL 

5.0 


i 



2451 872.5 




Themis 

.06 

Moon 

JPL 

Nov. 26, 1970 

2440 916.5 

1851 

2 

26 

JPL 

.14 

Mars 

JPL 

July 26, 1998 

2451 020.5 

315 

44 

23 



1.1 

Jupiter 

Themis 

March 2 

2060 

2473 520.5 

no 

330 

27 



1.6 

Saturn 







44 

825 

27 



1.5 

Uranus 







30 

1211 

14 



.95 

Neptune 







31 

1172 

7 



.52 

Pluto 

1 

i 

' 

r 



33 

1101 

4 

Themis 

.41 


Maximum 

error 

7.3 

9.5 

21.0 

3.0 

9.5 

7.2 

9.5 

8.6 

6.5 

3.2 
3.2 




















MAIN PROGRAM 


H 


TAPE 


, / Exit s r 
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TESTTR 
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ERRORZ 
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41 
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UCjI\ | 

CONVT 2 


C0NVT1 
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QUAD 
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4xit N . 

\ c ) 


Exit 

Cause of exit 

a 

End of data on input tape or incorrectly punched data cards 

b 

Illegal request of ephemeris data (misspelled names, wrong dates, etc.) 

c 

Illegal list of bodies (misspelled, unconnected references, etc.) 

d 

Sense switch 6 down (machine operator termination) 

e 

Number of permissible integration steps (STEFMX) exceeded 
Nonconvergence of Kepler’s equation after 15 iterations 

f 


Figure 1. - Block diagram of principal subprograms and program exits. Numbers on the block 
diagram are the FORTRAN calling statement numbers. A program may call only those programs 
located at a lower level and connected by a line. Logic decisions are not shown. 





























Start 


May ephemerl3 tape be constructed? (is TAPE3 =0.0?) ) 

■jf YES NO 

^SUBROUTINE TAPe £> 

V . 

Should the standard data be loaded? (la CLEAR =0.?) j 
i YES 

/ 1 \ 

.SUBROUTINE STDATA > NO 

E — r 

Should initial data and cont rol parameters be recalled? (Is RECALL « 0.?) 

j YES NO 

D — A, XPRIM, XPRIMB | 

^ JENPUTl (Main Input station) 

Is sense switch 6 down? *Y' X / 

I , 

Compute number (LSTAGE) of stages If not yet specified | 

i 

^SUBROUTINE ORDER (Orders list of perturbing bodies) J > 

^SUBROUTINE STAGE 


| Ready for next trajectory 


SUBROUTINE STAGE 


Should initial data for this stage be saved? {Is NSAVE = NSTAGE?) 

j YES NO 

A, XPRIM, XPRIMB -* D I 

^ , 

Move vehicle stage data for this stage Into working stores 

l 

INPUT, ^IDENT (NSTAQE) (Input station for this Btage)l > 

^ Is INPUT in e arth- centered spherical coordinates? (is |IM0DE[ = 4?) 

1 YES " ' ~ NO 

^SUBROUTINE TUDES (Convert to rectangular coordinates)^ 

J 

^SUBROUTINE NBODY (Integrates the path for this stage )^ > 

SUBROUTINE EXTRAS (Allows auxiliary computation between stages) 

Was this stage terminated by C(LOOKX) « XLOOK? (Is DONE < 0?) J 


| NO 

YES 

( Is this the last stage? (Is NSTAGE = 

LSTAGE? ) ) 


j NO 

| NSTAGE = NSTAGE + 1 



YES 



^ SUBROUTINE EXTRA (Allows auxiliary computation after trajectory)^ 

\ S vlut 7 

Vreturn/ 


Figure 2. - Flow diagram of the main program and SUBROUTINE STAGE. 
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Figure 4. - Angle-of -attack schedule and variation of drag and 
lift coefficients with Mach number. 
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